516作坊VB大题.docVIP

1， 随机产生20个数最高低分和平均分 Private Sub Command1_Click() Dim i%, j%, s(2) As Integer, mark(20) As Integer, min%, max%, ave! For i = 1 To 20 mark(i) = Int(Rnd * 101) Print mark(i) Next i min = mark(1): max = mark(1): ave = mark(1) For i = 2 To 20 If mark(i) max Then max = mark(i) If mark(i) min Then min = mark(i) ave = ave + mark(i) Next i Print Print max=; max, min; min, ave=; ave / 20 For i = 1 To 20 j = mark(i) \ 10 Select Case j Case 0 To 5 s(0) = s(0) + 1 Case 6 To 8 s(1) = s(1) + 1 Case 9 To 10 s(2) = s(2) + 1 End Select Next i Print 不及格人数, s(0), 一般, s(1), 优秀人数, s(2) End Sub 2， 改变字体加粗，下划线 ，斜体，粗体，删除线 Private Sub Command1_Click() Dim n@ Text1.Text = InputBox(shuru) End Sub Private Sub Command2_Click(Index As Integer) Select Case Index Case 0 Text1.Text = UCase(Text1.Text) Case 1 Text1.Font.Italic = Not Text1.Font.Italic Case 2 Text1.Font.Bold = Not Text1.Font.Bold Case 3 Text1.Font.Underline = Not Text1.Font.Underline Case 4 Text1.Font.Strikethrough = Not Text1.Font.Strikethrough End Select End Sub 3， 字符串反向显示 Private Sub Command1_Click() Dim str, strRe As String Dim i As Integer str = Text1.Text For i = 1 To Len(str) strRe = Mid(str, i, 1) strRe Next i Text2.Text = strRe End Sub 4， 求最大公约数 Dim a!,b!,r! A= inputbox(“”) B= inputbox(“”) If AB then M=a N=b Else M=b N=a Endif Do R=m mod n M=n N=r Loop while r0 ? m 5， 水仙花数 A=100 Do while a=999 I=a mod 10 J=(a mod 100) \10 K=a\100 If i^3+j^3+k^3=a then ?a Endif A=a+1 Loop 6， 两个随机数之和 Private Sub Command1_Click() Dim a%, b%, c% a = Int(91 * Rnd + 10) b = Int(91 * Rnd + 10) c = a + b Print a; +; b; =; c End Sub 7，素数 Private Sub Form_Click() Dim i%, j%, k% Dim flag As Boolean For i = 2 To 10000 flag = True For j = 2 To i - 1 If i Mod j = 0 Then