1、已知x,y,z 3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x

x = InputBox(\y = InputBox(\z = InputBox(\

Print Tab(8); \ y\ z\Print \排序前:\ \ \If x < y Then t = x: x = y: y = t: If x < z Then t = x: x = z: z = t: If y < z Then t = y: y = z: z = t:

Print \排序后:\ \ \End Sub

2.0到200 被5 或11 整除的数的和 Private Sub Command1_Click() Dim i%

For i = 0 To 200

If i Mod 11 = 0 Ori Mod 5 = 0 Then Sum = Sum + i End If Next i

Print \总和是\End Sub

3、从键盘输入三角形的三条边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

4、随机产生10个[30,100]内的整数，求最小值及所对应的下标。 Private Sub Form_click()

Dim a(1 To 10) As Integer, zb%, mina%, i% For i = 1 To 10

a(i) = Int(Rnd * 71 + 30)

Print a(i); Next i zb = 1

mina = a(1) For i = 2 To 10

If mina >a(i) Then mina = a(i): zb = i Next i Print

Print \下标=\End Sub

5、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 Dim a(1 To 10) As Integer, amin, amax, i%, avera! Private Sub Form_Click() For i = 1 To 10

a(i) = Int(Rnd * 71 + 30) Next i

amin = a(1) amax = a(1) avera = a(1) For i = 2 To 10

If a(i) >amax Then amax = a(i) If a(i)

For i = 1 To 10 Print a(i); Next i Print

Print \End Sub

6、随机产生10个[30,100]内的整数，求最大值及所对应的下标 Private Sub Form_Click() Dim a(9), max%, imax% For i = 0 To 9

a(i) = Int(Rnd * 71 + 30) Print a(i); Next i Print

max = a(0) For i = 1 To 9

If max

Next i

Print \Print \下标=\End Sub

7、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 Private Sub Command1_Click() Dim mark!, max!, min!, aver!, i% aver = 0 For i = 1 To 7

mark = InputBox(\输入第\位评委的打分\If i = 1 Then

max = mark: min = mark Else

If mark < min Then min = mark If mark > max Then max = mark End If

aver = aver + mark Next i

aver = (aver - min - max) / 5 Print aver End Sub

8,9、求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

10.产生1－100以内的素数 Private Sub Command1_Click() Dim i%, j%, tag As Boolean For j = 1 To 100 tag = True

For i = 2 To j - 1

If j Mod i = 0 Then tag = False Next i

If tag Then Print j; Next j End Sub

11、计算100~300之间所有能被3和7整除的数之和。 Private Sub Command1_Click() Dim s%, i% s = 0

For i = 100 To 300

If i Mod 3 = 0 Ori Mod 7 = 0 Then s = s + i End If Next i

Print \End Sub

12.输入一年份，判断他是否为闰年，并现实是否是闰年的有关信息。 Private Sub Command1_Click() Dim y%

y = Val(Text1)

If y Mod 4 = 0 And y Mod 100 <>0 Or y Mod 400 = 0 Then MsgBox (y & \年是闰年\Else

MsgBox (y & \年是平年\End If End Sub

13、编程求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 Ori Mod 7 = 0 Then s1 = s1 + i

End If Next i

For i = 200 To 400

If i Mod 5 = 0 Andi Mod 7 = 0 Then s2 = s2 + i End If Next i

s3 = s1 - s2 Print s3 End Sub

14.利用inputbox函数输入两个整数，求它们的最大公约数 Private Sub Command1_Click() n1 = InputBox(\输入n\ m1 = InputBox(\输入m\ If m1 > n1 Then

m = m1: n = n1 Else

m = n1: n = m1 End If

r = m Mod n Do While r <> 0 m = n n = r

r = m Mod n Loop

Print \的最大公约数是：\End Sub

15、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生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