1、VB上机考试练习题1、 利用随机函数产生25个100到999之间的整数,构成55的矩阵,输出该矩阵。Private Sub Form_Click()Dim i As Integer, j As IntegerDim a(5, 5) As IntegerPrint 输出该矩阵:For i = 1 To 5For j = 1 To 5a(i, j) = Int(Rnd * 900 + 100)Print a(i, j);Next jPrintNext iEnd Sub2、利用随机函数产生25个10到99之间的整数,求其平均值(要求保留3位小数,第4位四舍五入)。Private Sub Form_C
2、lick()Dim i As IntegerDim a(1 To 25) As Integers = 0For i = 1 To 25x = Int(Rnd * 90 + 10)Print x;If i Mod 10 = 0 Then Prints = s + xNext iave = s / 25ave = Format(ave, #.000)Print 平均值为:; aveEnd Sub3、在窗体上按上鼠标的右键,记录其的坐标。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As
3、Single) If Button = 2 Then Label2.Caption = X & , & Y End IfEnd Sub4、利用随机函数产生25个10到99之间的整数,按从小到大的顺序显示。Private Sub Form_Click()Dim i As IntegerDim a(1 To 25) As IntegerFor i = 1 To 25a(i) = Int(Rnd * 90 + 10)Print a(i);If i Mod 10 = 0 Then PrintNext iFor i = 1 To 24For j = i + 1 To 25If a(i) a(j) The
4、ntmp = a(i): a(i) = a(j): a(j) = tmpEnd IfNext jNext iPrintPrint 从小到大排序为:;PrintFor i = 1 To 25Print a(i);If i Mod 10 = 0 Then PrintNext iPrintEnd Sub5、利用随机函数产生50个 1,6 之间的整数, 分别统计出1的个数,2的个数,3的个数,4的个数,5的个数和6的个数。Private Sub Form_Click()Dim i As IntegerDim a(1 To 50) As IntegerFor i = 1 To 50a(i) = Int(
5、Rnd * 6 + 1)Print a(i);If i Mod 10 = 0 Then PrintNext iFor i = 1 To 50s = a(i)For j = 1 To Len(s)s1 = Mid(s, j, 1)Select Case s1 Case 1 n1 = n1 + 1 Case 2 n2 = n2 + 1 Case 3 n3 = n3 + 1 Case 4 n4 = n4 + 1 Case 5 n5 = n5 + 1 Case 6 n6 = n6 + 1End SelectNext jNext iPrint 1的个数是: & n1 & 2的个数是: & n2 _& 3
6、的个数是: & n3 & 4的个数是: & n4 & 5的个数是: & n5 & 6的个数是: & n6End Sub6、在文本框中输入一些英语单词,统计空格的个数。Dim n%, x As String, s%Private Sub Form_Click()n = Len(Text1.Text)x = Text1.TextFor i = 1 To n If Mid(x, i, 1) = Then s = s + 1Next iPrint 共出现了 & s & 个空格End Sub7、编程计算下列公式的值,其中n (10)为从键盘输入的正整数。S=1!+3!+5!+(2*n-1)!Privat
7、e Sub Form_Click()n = Val(InputBox(输入正整数n(n10)For k = 1 To 2 * n - 1 Step 2f = 1For m = 1 To kf = f * mNext mPrint m - 1; !=; fs = s + fNext kPrint s=; sEnd Sub8、编程计算下列公式的值,其中n (10)为从键盘输入的正整数。 S=2!+4!+6!+(2*n)!Private Sub Form_Click()n = Val(InputBox(输入正整数n(n max Then max = a(i)Next iPrintPrint 最大值为
8、:; maxEnd Sub15、当按下鼠标左键时,窗体的背景色变为红色;松开鼠标左键时,窗体的背景色变为绿色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Me.BackColor = vbRedEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)Me.BackColor = vbGreenEnd Sub16、编制一个时钟程序,如
9、下图:Private Sub Form_Click()Text1.Text = Time()End Sub17、从键盘输入10个数,按输入的顺序和按输入顺序相反的顺序输出。Private Sub Form_Click()Dim i As IntegerDim a(1 To 10) As IntegerPrint 顺序显示For i = 1 To 10a(i) = InputBox(请输入第 & i & 个数)Print a(i);Next iPrintPrint 反序输入For i = 10 To 1 Step -1Print a(i);Next iEnd Sub18、计算圆面积的程序。程序运
10、行时,单击窗体,然后在下图所示的输入框中输入圆的半径,即可在窗体上显示计算出的圆面积。Private Sub Form_Click()r = Val(InputBox(输入圆的半径(19)s = 3.14*r 2Print 圆的面积为: & sEnd Sub19、编写一个时钟程序,当选择“24小时”时,以24小时的方式显示如A,当选择“12小时”时,以12小时的方式显示如B。 Private Sub Option1_Click()Text1.Text = Time()End SubPrivate Sub Option2_Click()Text1.Text = Format(Now, hh:nn
11、:ss:am/pm)End Sub20、设计一个程序,用户界面如图所示。程序运行后,用户在文本框中输入一段文字,然后按需要单击选择框,用以改变文本的字体、字型、颜色以及大小。Private Sub Check1_Click()Text1.FontBold = Check1.ValueEnd SubPrivate Sub Check2_Click()Text1.FontUnderline = Check2.ValueEnd SubPrivate Sub Check3_Click()Text1.FontSize = 20End SubPrivate Sub Check4_Click()Text1.
12、ForeColor = vbGreenEnd SubPrivate Sub Command1_Click()Text1.Text = End SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Click()Text1.Text = Val(请输入一段文字)End Sub21 .添加2标签和2文本框,运行时在第一个文本框中输入一个字符,然后按回车键,对应字符的ASCII编码值显示在第二个文本框中。提示:用KeyPress事件,回车键ASCII值为13Private Sub Text1_KeyPress(KeyAscii As In
13、teger)If KeyAscii = 13 Then Text2.Text = Asc(Text1.Text)End IfEnd Sub 22.画出如图所示的图形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:
14、CurrentY = i + 0.1: Print iLine (0.5, i)-(0, i)End IfNext iCurrentX = 6.283: CurrentY = 0For x = -6.283 To 6.283 Step 0.01y = Sin(x)Line -(x, y)Next xEnd Sub23.画出如图所示的图形 Private Sub Form_Click()Dim i%For i = 0 To 7Me.FillStyle = iMe.Circle (500 + 800 * i, 800), 400Next iEnd Sub24.画出如图所示的图形Private Su
15、b Form_Click()Dim i%, x1%, y1%, x2%, y2%Me.Scale (-50, 50)-(50, -50)Me.Line (-50, 0)-(50, 0)Me.Line (0, 50)-(0, -50)For i = 1 To 5x1 = -50 + 5 * iy1 = 50 - 5 * ix2 = 50 - 5 * iy2 = -50 + 5 * iMe.Line (x1, y1)-(x2, y2), , BNext iEnd Sub25、.添加2标签和2文本框,运行时在第一个文本框中输入一个字符,然后按回车键,对应字符的ASCII编码值显示在第二个文本框中。提
16、示:用KeyPress事件,回车键ASCII值为13Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then Text2.Text = Asc(Text1.Text)End IfEnd Sub 26、 运行时单击窗口,调用Inputbox函数输入一个数,判断其是否为正整数,如果为正整数判断其奇偶性,把结果信息显示在MsgBox对话框上Private Sub Form_Click() Dim m% m = Val(InputBox(请输入一个数) If m 0 Then If m Mod 2 = 0 Then Pri
17、nt MsgBox(m & 是正整数 & 并且 & m & 是偶数) Else Print MsgBox(m & 是正整数 & 但是 & m & 是奇数) End If End If If m 0 Then MsgBox (m & 不是正整数,因此不判断奇偶性) End If End Sub 27、 利用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 Sub28、 利用双重循环,实现如图。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 Sub
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1