VB上机+答案

Else

Label1.Caption = Text1.Text & \不是素数\End If End Sub

11 利用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(\这两个数的最小公倍数是：\

End Sub

12 输入一个整数，编写一函数判断该数是否同时是2和7的倍数

Private Sub Form_Click()

Dim m% m = Val(InputBox(\请输入一个整数\If m Mod 2 = 0 And m Mod 7 = 0 Then Print m; \同时是2和7的倍数\Else

Print m; \不同时是2和7的倍数\End If End Sub

13 编程计算下列公式的值，其中n (<10)为从键盘输入的正整数。

S=1!+2!+2!+……+n! Private Sub Form_Click() Dim n%

n = Val(InputBox(\输入n的值(n<10)\Sum = 0

For i = 1 To n s = 0

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 & \End Sub

16 在文本框中输入一些英语单词，统计空格的个数。

建立1个

CommandButton，1个Text

Private Sub Command1_Click() n = 0 strold = \

s = Text1.Text For i = 1 To Len(s)

Strnew = UCase(Mid(s, i, 1))

If (Strold < \n = n + 1 End If

Strold = Strnew Next i

print \单词个数\End Sub

17计算圆面积的程序。程序运行时，单击窗体，然后在下图所示的输入框中输入圆的半径，即可在窗体上显示计算出的圆面

建立一个Text 一个CommandButton Private Sub Command1_Click() r = Val(Text1.Text) a = 3.14159256 * r ^ 2 Print a

End Sub

18 添加2标签和2文本框，运行时在第一个文本框中输入一个字符，然后按回车键，对应字符的ASCII编码值显示在第二个文本框中。 提示：用KeyPress事件，回车键ASCII值为13

建立2个Text 2个Label

Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then

Text2.Text = Asc(Text1.Text) End If End Sub

19用For …Next语句编程，双击窗体后，在屏幕上显示如图：

Private Sub Form_Click() x = 0 For n = 1 To 3 For m = 1 To 2 * n - 1 x = x + 1

Print Tab(16 - n * 7 + m * 7); 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 用For …Next语句编程，双击窗体后，在屏幕上显示如图：Private Sub Form_DblClick() Dim a%(1 To 5) For i = 1 To 5 a(i) = 3

Print Tab(6 + i * 4); a(i);