6、求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程确定n和a的值，并计算s。 Private Sub Form_click() Dim s!, t!, i!, a%, n% a = Int(Rnd * 9 + 1) n = Int(Rnd * 6 + 5) t = 0: s = 0
Print Tab(9); \Print
For i = 1 To n t = t * 10 + a s = s + t Print Tab(9); t Next i Print
Print Tab(9); \End Sub
7、计算100~300之间所有能被3和7整除的数之和。 Private Sub Command1_Click() Dim s%, i% s = 0
For i = 100 To 300
If i Mod 3 = 0 Or i Mod 7 = 0 Then s = s + i End If Next i
Print \End Sub
8、编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数，则只能加一次。) Private Sub Command1_Click() Dim s1%, s2%, s3%, i% s1 = 0 s2 = 0
For i = 200 To 400
If i Mod 5 = 0 Or i Mod 7 = 0 Then s1 = s1 + i End If Next i
For i = 200 To 400
If i Mod 5 = 0 And i Mod 7 = 0 Then s2 = s2 + i End If Next i s3 = s1 - s2
Print s3 End Sub
9找出被3、5、7除，余数均为1的最小的5个正整数。 Private Sub Command1_Click() Dim countN%, n% countN = 0 n = 1 Do n = n + 1
If n Mod 3 = 1 And n Mod 5 = 1 And n Mod 7 = 1 Then Print n
countN = countN + 1 End If
Loop Until countN = 5 End Sub
10、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 Private Sub Form_Click()
Dim a(6) As Integer, i%, t%, s!, max%, min%, imin%, imax% Randomize For i = 0 To 6
a(i) = InputBox(\输入评委所打的分数\ 或者 '也可以用随机数产生 'a(i) = Int(Rnd * 31 + 70) Next i For i = 0 To 6 Print a(i); Next i Print
imax = 0: max = a(0) For i = 1 To 6
If a(i) >= max Then max = a(i): imax = i Next i
t = a(0): a(0) = a(imax): a(imax) = t imin = 6: min = a(6) For i = 0 To 5
If a(i) <= min Then min = a(i): imin = i Next i
t = a(6): a(6) = a(imin): a(imin) = t Print \除去最高分和最低分之后的分数\ For i = 1 To 5 Print a(i); Next i For i = 1 To 5 s = s + a(i) Next i
Print \该参赛者的平均得分为\ End Sub
11、编程显示100~500之间所有的水仙花数之和。(水仙花数是3位数，其各位数之和等于该数本身) Private Sub Form_Click()
Print \之间所有的水仙花数为：\ Dim x%, a%, b%, c% For x = 100 To 500 a = x Mod 10
b = (x Mod 100) \\ 10 c = x \\ 100
If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x Next x End Sub
12、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 Private Sub Command1_Click() Text1 = Int(Rnd * 900 + 100) End Sub
Private Sub Command2_Click() Dim x%, x1%, x2%, x3% x = Val(Text1) x1 = x Mod 10 x2 = (x Mod 100) \\ 10 x3 = x \\ 100
Text2 = x1 * 100 + x2 * 10 + x3 End Sub
否构成三角13、从键盘输入三角形的三条边a,b,c的值，根据其数值，判断能形。 Private Sub Command1_Click() Dim a%, b%, c%
a = Val(InputBox(\ b = Val(InputBox(\ c = Val(InputBox(\
If a + b > c And b + c > a And a + c > b Then MsgBox (\能构成三角形\Else
MsgBox (\不能构成三角形\) End If End Sub
14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。
Private Sub Form_Click() Dim a(), i%, n%
a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) n = UBound(a) For i = 0 To n
Print a(i); Next i Print For i = 5 To n a(i - 1) = a(i) Next i n = n - 1
ReDim Preserve a(n) For i = 0 To n Print a(i); Next i Print End Sub
14、已知数组a()，编程删除a中第5个元素。数组a中的元素分别为{12，6，4，89，75，63，100，20，31}。
Private Sub Form_Click() Dim a(), i%, n%
a = Array(12, 6, 4, 89, 75, 63, 100, 20, 31) n = UBound(a) For i = 0 To n Print a(i); Next i Print For i = 5 To n a(i - 1) = a(i) Next i n = n - 1
ReDim Preserve a(n) For i = 0 To n Print a(i); Next i Print End Sub
15、随机生成一个整型的二维数组，范围在[10,20]之间，以上三角形式输出该数组。（下三角、全部元素） Dim a%(4, 4), i%, j% Private Sub Form_load() For i = 0 To 4 For j = 0 To 4
a(i, j) = Int(Rnd * 11 + 10) Next j Next i End Sub
Private Sub Command1_Click() Picture1.Cls For i = 0 To 4
For j = 0 To 4 Picture1.Print a(i, j); \ Next j Picture1.Print Next i End Sub
Private Sub Command2_Click() Picture2.Cls For i = 0 To 4 For j = i To 4
Picture2.Print a(i, j); \ Next j Picture2.Print Next i End Sub
Private Sub Command3_Click() Picture3.Cls For i = 0 To 4 For j = 0 To i
Picture3.Print a(i, j); \ Next j Picture3.Print Next i End Sub
16、利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出每行中的最大值和下标。 Dim a%(3, 3), i%, j%, imax% Private Sub Command1_Click() For i = 0 To 3 For j = 0 To 3
a(i, j) = Int(Rnd * 31 + 20) Picture1.Print a(i, j); \ Next j Picture1.Print Next i imax = 0 For i = 0 To 3 For j = 0 To 3
If a(i, imax) < a(i, j) Then imax = j End If Next j
Picture2.Print \第\行\最大值为\下标为\ Next i End Sub