VB上机答案.doc

1利用随机函数产生25个100到999之间的整数，构成55的矩阵，输出该矩阵。Private Sub Form_Click()Dim m%, n%For i = 1 To 25m = Int(Rnd * 900 + 100)Print m;If i Mod 5 = 0 Then PrintNext iEnd Sub 2 利用随机函数产生25个10到99之间的整数，求其平均值(要求保留3位小数，第4位四舍五入)。Private Sub Form_Click()Dim k#, n%n = 0For i = 1 To 25m = Int(Rnd * 90 + 10)Print m;n = n + mNext iPrintPrint 25个数的和为：, nk = n / 25Print 25个数的平均值为：, Format(k, #.000)End Sub3 利用随机函数产生25个10到99之间的整数，按从小到大的顺序显示。Private Sub Form_Click()Dim a%(1 To 25)For i = 1 To 25a(i) = Int(Rnd * 90 + 10)Print a(i);Next iPrintFor i = 1 To 24p = iFor j = i + 1 To 25If a(p) a(j) Then p = jNext jt = a(i): a(i) = a(p): a(p) = tNext iPrint 从小到大排序为：;For i = 1 To 25Print a(i);Next iEnd Sub4 利用随机函数产生50个 1,6 之间的整数, 分别统计出1的个数，2的个数，3的个数，4的个数，5的个数和6的个数。Private Sub Form_Click()a1 = 0a2 = 0a3 = 0a4 = 0 a5=0 a6=0For i = 1 To 50m = Int(Rnd * 6 + 1)Print m;If m = 1 Then a1 = a1 + 1If m = 2 Then a2 = a2 + 1If m = 3 Then a3 = a3 + 1 If m = 4 Then a4 = a4 + 1If m = 5 Then a5 = a5 + 1If m = 6 Then a6= a6 + 1Next iPrintPrint 1的个数为：, a1Print 2的个数为：, a2Print 3的个数为：, a3 Print 4的个数为：, a4Print 5的个数为：, a5 Print 6的个数为：, a6End Sub5 利用随机函数产生并显示10个3位数的正整数，找出其中的最大数。Private Sub Form_Click()Dim a%(1 To 10)Dim max%For i = 1 To 10a(i) = Int(Rnd * 900 + 100)Print a(i);If a(i) max Then max = a(i)PrintNext iPrint 最大数为：; maxEnd Sub6 利用随机函数产生并显示10个4位数的正整数，找出其中的最小数。Dim a(1 To 10) As IntegerDim min As IntegerPrivate Sub Form_Click()Dim i As IntegerClsFor i = 1 To 10a(i) = Int(Rnd * 900 + 1000)Print a(i);Next imin = a(1)For i = 2 To 10If a(i) 0 Then If m Mod 2 = 0 Then Print MsgBox(m & 是正整数 & 并且 & m & 是偶数) Else Print MsgBox(m & 是正整数 & 但是 & m & 是奇数) End If End If If m 0 Then MsgBox (m & 不是正整数，因此不判断奇偶性) End If End Sub 9 输入一个整数，编写一函数判断该数是否是偶数Private Sub Form_Click()Dim m%m = Val(InputBox(请输入一个整数)If m Mod 2 = 0 ThenPrint m; 是偶数ElsePrint m; 不是偶数End IfEnd Sub10 从文本框输入一个正整数，判断该数是否为素数。建立一个Text和CommandButtonPrivate Sub Command1_Click()Dim N As Long, Flags As BooleanN = Val(Text1.Text)Flags = TrueFor i = 2 To Sqr(N)If N Mod i = 0 ThenFlags = FalseExit ForEnd IfNextMsgBox N & IIf(Flags, , 不) & 是一个素数End Sub另外一个方法 建立一个命令 1个Text，1个Label 1个CommandButtonPrivate Sub Command1_Click()Dim x%, i%x = Val(Text1.Text)Tag = TrueFor i = 2 To x - 1If x Mod i = 0 ThenTag = FalseExit ForEnd IfNext iIf Tag = True ThenLabel1.Caption = Text1.Text & 是素数ElseLabel1.Caption = Text1.Text & 不是素数End IfEnd Sub11 利用Inpubox函数输入2个正整数，求其最小公倍数，结果用Msgbox函数显示。 Private Sub Form_Click() Dim m%, n%, r%, t% m = Val(InputBox(输入第一个正整数) n = Val(InputBox(输入第二个正整数) If m n Then t = m: m = n: n = t t = m * n Do r = m Mod n n = r Loop Until r = 0 Print MsgBox(这两个数的最小公倍数是： & t / m) End Sub12 输入一个整数，编写一函数判断该数是否同时是2和7的倍数Private Sub Form_Click()Dim m%m = Val(InputBox(请输入一个整数)If m Mod 2 = 0 And m Mod 7 = 0 ThenPrint m; 同时是2和7的倍数ElsePrint m; 不同时是2和7的倍数End IfEnd Sub13 编程计算下列公式的值，其中n (10)为从键盘输入的正整数。S=1!+2!+2!+n!Private Sub Form_Click()Dim n%n = Val(InputBox(输入n的值(n10)Sum = 0For i = 1 To ns = 0For j = 1 To is = s + jNext jSum = Sum + sNext iPrint SumEnd Sub14当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左键时，窗体的背景色变为绿色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = RGB(255, 0, 0)End SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Form1.BackColor = RGB(0, 255, 0)End Sub15 在窗体上按上鼠标的右键，记录其的坐标。建立Lable1Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Label1.Caption = X & , & YEnd Sub16 在文本框中输入一些英语单词，统计空格的个数。建立1个CommandButton，1个Text Private Sub Command1_Click()n = 0strold = s = Text1.TextFor i = 1 To Len(s)Strnew = UCase(Mid(s, i, 1)If (Strold Z) And (Strnew = A And Strnew = Z) Thenn = n + 1End IfStrold = StrnewNext iprint 单词个数; nEnd Sub17计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面建立一个Text 一个CommandButtonPrivate Sub Command1_Click()r = Val(Text1.Text)a = 3.14159256 * r 2Print aEnd Sub18 添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按回车键，对应字符的ASCII编码值显示在第二个文本框中。提示：用KeyPress事件，回车键ASCII值为13建立2个Text 2个LabelPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.Text = Asc(Text1.Text)End IfEnd Sub19用For Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_Click()x = 0For n = 1 To 3For m = 1 To 2 * n - 1x = x + 1 Print Tab(16 - n * 7 + m * 7); x;Next mPrintNext nEnd Sub20 用For Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_DblClick()Dim a%(1 To 5) For i = 1 To 5a(i) = i *2 Print Tab(6 + i * 4); a(i);Next i PrintFor i = 1 To 5a(i) = i * 2Print Tab(6 + (i - 1) * 4); a(i);Next iPrintFor i = 1 To 5a(i) = i * 2Print Tab(6 + (i - 2) * 4); a(i);Next i End Sub21 用For Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_DblClick()Dim a%(1 To 5)For i = 1 To 5a(i) = 3Print Tab(6 + i * 4); a(i);Next iPrintFor i = 1 To 5a(i) = 5Print Tab(6 + (i - 1) * 4); a(i);Next iPrintFor i = 1 To 5a(i) = 7Print Tab(6 + (i - 2) * 4); a(i);Next iEnd Sub22 利用双重循环，实现如图。Private Sub Form_Click()x = 0For n = 1 To 4For m = 1 To 2 * n - 1x = x + 3 Print Tab(16 - n * 5 + m * 5); x;Next mPrintNext n End Sub23 编制一个时钟程序，如下图：建立一个LabelPrivate Sub Form_Click()Label1.Caption = NowEnd Sub24 .画出如图所示的图形Private Sub Form_Click()ClsForm1.Scale (-8, 2)-(8, -2)Line (-7.5, 0)-(7.5, 0)Line (0, 1.9)-(0, -1.9)CurrentX = 7.5: CurrentY = 0.2: Print xCurrentX = 0.5: CurrentY = 2: Print yFor i = -1 To 1If i 0 ThenCurrentX = 0.7: Cur