VB练习题（上机）含答案(5)

Private Sub Command1_Click() Dim a%(3), i%, max% For i = 0 To 3

a(i) = Val(Text1(i)) Next i max = a(0) For i = 1 To 3

If a(i) > max Then max = a(i) Next i Print max End Sub

Private Sub Form_Load()

End Sub

8 编程实现：在窗体的两个文本框中分别输入一个正整数，单击“求最大公约数”按钮后，在窗体第一行显示它们的最大公约数。程序运行界面如下图所示。

Private Sub Command1_Click() Dim m%, n% m = Val(Text1) n = Val(Text2)

If n > m Then t = n: n = m: m = t r = m Mod n Do While r <> 0 m = n n = r

r = m Mod n Loop

Print Text1; \和\最大公约数是:\End Sub

Private Sub Form_Load()

End Sub

21

9 编程实现：在窗体的左上角有一个图像框，通过属性窗口任选一张图片装入到图像框的Picture属性中，每按一次“放大”按钮时图像放大10%，同理，每按一次“缩小”按钮时图像缩小10%，放大缩小时均需保持图像的纵横比不变，按“结束程序”按钮则结束程序。程序运行界面如下图。

Private Sub Command1_Click() Image1.Stretch = True

Image1.Width = Image1.Width * 1.1 Image1.Height = Image1.Height * 1.1 End Sub

Private Sub Command2_Click() Image1.Stretch = True

Image1.Width = Image1.Width * 0.9 Image1.Height = Image1.Height * 0.9 End Sub

Private Sub Command3_Click() End End Sub

Private Sub Form_Load()

End Sub

10 编程实现：在窗体上建立一个文本框（内容如下图所示），另外建立菜单，一级菜单标题分别为“背景颜色”，子菜单标题分别为“白色”、“红色”、“绿色”、“蓝色”。程序运行时，如果单击“白色”子菜单，则将文本框的背景色设置为白色；如果单击“红色”子菜单，则将文本框的背景色设置为红色；如果单击“绿色”子菜单，则将文本框的背景色设置为绿色；如果单击“蓝色”子菜单，则将文本框的背景色设置为蓝色。程序运行界面如下图。

22

Private Sub blue_Click() Text1.BackColor = vbBlue End Sub

Private Sub green_Click() Text1.BackColor = vbGreen End Sub

Private Sub red_Click() Text1.BackColor = vbRed End Sub

Private Sub Text1_Change()

End Sub

Private Sub white_Click() Text1.BackColor = vbWhite End Sub

23

第四部分

?x?y,(x?0,y?0)?z??x?y,(x?0,y?0)1．编程计算分段函数的值。要求用文本框(TextBox)输入x,y的

?0,(其他情况)?值，单击标题为“计算”命令按钮后，利用标签控件上显示z的值。 Private Sub Command1_Click() x = Val(Text1) y = Val(Text2) If x > 0 And y > 0 Then z = Sqr(x + y) ElseIf x < 0 And y < 0 Then z = Sqr(Abs(x - y)) Else z = 0 End If Label3 = z End Sub

Private Sub Form_Load() End Sub

2、在窗体添加一个命令按钮（标题为“开始”），单击该按钮，随机产生10个三位数（100～999），在窗体的第一行这10个三位数，在窗体的第二行输出其中的奇数，在窗体的第三行输出其中的偶数。 Private Sub Command1_Click() Dim a%(1 To 10), i% For i = 1 To 10

a(i) = Int(Rnd * 900 + 100) '随机产生10个100到999的整数 Print a(i);

24

Next i Print

For i = 1 To 10

If a(i) Mod 2 <> 0 Then Print a(i); '输出奇数 Next i Print

For i = 1 To 10

If a(i) Mod 2 = 0 Then Print a(i); '输出偶数 Next i End Sub

Private Sub Form_Load() End Sub

?x2?z2,(x??10,z?0)?x?y??,(x??30,z?0)3．编程计算分段函数的值。要求用InputBox函数输z???x?z,(?30?x??10,x?z)入x,z的值，单击命令按钮（标题为“计算”）后，利用图形框（PictureBox）输出计算结果y。 Private Sub Command1_Click() Picture1.Cls

x = Val(InputBox(\输入x的值\z = Val(InputBox(\输入z的值\If x >= -10 And z < 0 Then y = x ^ 2 + z ^ 2 If x < -30 And z > 0 Then y = x / z

If x >= -30 And x < -10 And x > z Then y = Sqr(x - z) Picture1.Print y End Sub

Private Sub Form_Load()

25

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB练习题（上机）含答案(5)在线全文阅读。