重庆医科大学VB上机答案.pdf

1利用随机函数产生25个100到999之间的整数，构成55的矩 阵，输出该矩阵。 Private Sub Form_Click() Dim m%, n% For i = 1 To 25 m = Int(Rnd * 900 + 100) Print m; If i Mod 5 = 0 Then Print Next i End Sub 2利用随机函数产生25个10到99之间的整数，求其平均值(要 求保留3位小数，第4位四舍五入)。 Private Sub Form_Click() Dim k#, n% n = 0 For i = 1 To 25 m = Int(Rnd * 90 + 10) Print m; n = n + m Next i Print Print 25个数的和为：, n k = n / 25 Print 25个数的平均值为：, Format(k, #.000) End Sub 3利用随机函数产生25个10到99之间的整数，按从小到大的顺 序显示。 Private Sub Form_Click() Dim a%(1 To 25) For i = 1 To 25 a(i) = Int(Rnd * 90 + 10) Print a(i); Next i Print For i = 1 To 24 p = i For j = i + 1 To 25 If a(p) a(j) Then p = j Next j t = a(i): a(i) = a(p): a(p) = t Next i Print 从小到大排序为：; For i = 1 To 25 Print a(i); Next i End Sub 4 利用随机函数产生50个 1,6 之间的整数, 分别统计出1的个 数，2的个数，3的个数，4的个数，5的个数和6的个数。 Private Sub Form_Click() a1 = 0 a2 = 0 a3 = 0 a4 = 0 a5=0 a6=0 For i = 1 To 50 m = Int(Rnd * 6 + 1) Print m; If m = 1 Then a1 = a1 + 1 If m = 2 Then a2 = a2 + 1 If m = 3 Then a3 = a3 + 1 If m = 4 Then a4 = a4 + 1 If m = 5 Then a5 = a5 + 1 If m = 6 Then a6= a6 + 1 Next i Print Print 1的个数为：, a1 Print 2的个数为：, a2 Print 3的个数为：, a3 Print 4的个数为：, a4 Print 5的个数为：, a5 Print 6的个数为：, a6 End Sub 5 利用随机函数产生并显示10个3位数的正整数，找出其中的 最大数。 Private Sub Form_Click() Dim a%(1 To 10) Dim max% For i = 1 To 10 a(i) = Int(Rnd * 900 + 100) Print a(i); If a(i) max Then max = a(i) Print Next i Print 最大数为：; max End Sub 6 从键盘输入10个数，按输入的顺序和按输入顺序相反的顺 序输出。 Private Sub Form_Click() Dim a%(1 To 10) Print 顺序显示 For i = 1 To 10 a(i) = InputBox(请输入第 Next i Print Print 反序输入 For i = 10 To 1 Step -1 Print a(i); Next i End Sub 7 运行时单击窗口，调用Inputbox函数输入一个数，判断其是否为正 整数，如果为正整数判断其奇偶性，把结果信息显示在MsgBox对话框 上 Private Sub Form_Click() Dim m% m = Val(InputBox(请输入一个数) If m 0 Then If m Mod 2 = 0 Then Print MsgBox(m 同时是2和7的倍数 Else Print m; 不同时是2和7的倍数 End If End Sub 13 编程计算下列公式的值，其中n (10)为从键盘输入的正整 数。 S=1!+2!+3!+n! Private Sub Form_Click() Dim n% n = Val(InputBox(输入n的值(n10) Sum = 0 For i = 1 To n s = 1 For j = 1 To i s = s * j Next j Sum = Sum + s Next i Print Sum End Sub 14当按下鼠标左键时，窗体的背景色变为红色；松开鼠标左 键时，窗体的背景色变为绿色。 Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = RGB(255, 0, 0) End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.BackColor = RGB(0, 255, 0) End Sub 15 在窗体上按上鼠标的右键，记录其的坐标。 建立Lable1 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.Caption = X x; Next m Print Next n End Sub 20 用For Next语句编程，双击窗体后，在屏幕上显示如 图： Private Sub Form_DblClick() Dim a%(1 To 5) For i = 1 To 5 a(i) = i *2 Print Tab(6 + i * 4); a(i); Next i Print For i = 1 To 5 a(i) = i * 2 Print Tab(6 + (i - 1) * 4); a(i); Next i Print For i = 1 To 5 a(i) = i * 2 Print Tab(6 + (i - 2) * 4); a(i); Next i End Sub 21利用双重循环，实现如图。 Private Sub Form_Click() x = 0 For n = 1 To 4 For m = 1 To 2 * n - 1 x = x + 3 Print Tab(16 - n * 5 + m * 5); x; Next m Print Next n End Sub 22编制一个时钟程序，如下图： 建立一个Label Private Sub Form_Click() Label1.Caption = Now End Sub 只有时间无日期 建立一个Text Private Sub Form_Click() Text1.Text = Time End Sub 23画出如图所示的图形 Private Sub Form_Click() Cls Form1.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 x CurrentX = 0.5: CurrentY = 2: Print y For i = -1 To 1 If i 0 Then CurrentX = 0.7: CurrentY = i + 0.1: Print i Line (0.5, i)-(0, i) End If Next i CurrentX = 6.283: CurrentY = 0 For x = -6.283 To 6.283 Step 0.01 y = Sin(x) Line -(x, y) Next x End Sub 24画出如图所示的图形 Private Sub Form_Click() Dim i% For i = 0 To 7 Me.FillStyle = i Me.Circle (500 + 800 * i, 800), 400 Next i End Sub 1.找最大最小数 利用随机函数产生并显示10个4位数的正整数，找出其中的 最小数、最大数。 Private Sub Form_Click() Dim a%(1 To 10) Dim min% For i = 1 To 10 a(i) = Int(Rnd * 9000 + 1000) Print a(i); Next i min = a(1) For i = 2 To 10 If a(i) max Then max = a(i) Next i Print Print 最小数为：; min, 最大数为：; max End Sub 利用随机函数产生并显示10个3位数的正整数，找出其中的 最大数。 Private Sub Form_Click() Dim a%(1 To 10) Dim min% For i = 1 To 10 a(i) = Int(Rnd * 900 + 100) Print a(i); Next i max = a(1) For i = 2 To 10 If a(i) max Then max = a(i) Next i Print Print 最小数为：; max End Sub 2 编程计算下列公式的值，其中n (10)为从键盘输入的正整 数。 S=2!+4!+6!+(2*n)! Private Sub Form_Click() Dim s#, i%, j%, x% x = InputBox(请输入小于10的正整数) sum = 0 For i = 1 To x s = 1 For j = 1 To 2 * i s = s * j Next j sum = sum + s Next i Print sum End Sub S=1!+3!+5!+(2*n-1)! Private Sub Form_Click() Dim s#, i%, j%, x% x = InputBox(请输入小于10的正整数) sum = 0 For i = 1 To x s = 1 For j = 1 To 2 * i - 1 s = s * j Next j sum = sum + s Next i Print sum End Sub 3用For Next语句编程，双击窗体后，在屏幕上显示如图： Private Sub Form_DblClick() Dim a%(1 To 5) For i = 1 To 5 a(i) = 3 Print Tab(12 + i * 6); a(i); Next i Print For i = 1 To 5 a(i) = 5 Print Tab(12 + (i - 1) * 6); a(i); Next i