VB编程题20道) (2.docVIP

求100以内的素数。 Private Sub Form_Click() Dim i%, j% For i = 2 To 100 For j = 2 To i - 1 If i Mod j = 0 Then Exit For Next j If j = i Then Print i; Next i End Sub 2、随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生246，输出是642。 Dim a%, m%, b%, c%, d% Private Sub Form_Click() a = Int(Rnd * 900 + 100) Print a d = (a Mod 10) * 100 b = (a Mod 100) - (a Mod 10) c = a \ 100 m = c + b + d Print m End Sub 3、利用InputBox函数输入两个整数，求它们的最大公约数。 Private Sub command1_click() Dim x As Integer, y As Integer x = InputBox(请输入x的值) y = InputBox(请输入y的) Print x 和 y 的最大公约数是; ; gys(x, y) End Sub Private Function gys(ByVal m As Integer, ByVal n As Integer) As Integer Dim a As Integer a = m Mod n Do Until a = 0 m = n: n = a: a = m Mod n Loop gys = n End Function 4、编程求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 5、输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4整除但不能被100整除，或者能被400整除） Private Sub Command1_Click() Dim a As Integer a = InputBox(请输入年份) If a Mod 400 = 0 Or a Mod 4 = 0 And a Mod 100 0 Then MsgBox (Yes) Else MsgBox (No) End If End Sub 6、计算100~300之间所有能被3和7整除的数之和。 Private Sub Form_Click() For i = 100 To 300 If i Mod 21 = 0 Then s = s + i Print i; End If Next i Print Print s=; s End Sub 7、某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 Private Sub Command1_Click() Dim mark!, max!, min!, aver!, i% aver = 0 For i = 1 To 7 mark = InputBox(输入第 i 位评委的打分) 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、随机产生10个[30,100]内的整数，求最大值及所对应的下标 Private Sub Command1_Click() Dim a(1 To 10) As Integer, i%, maxa%, m% For i = 1 To 10 a(i) = Int(Rnd * 70) + 30 Next i maxa = a(1) For i = 2 To 10 If a(i) a(1) Then ma