中职VB语言程序设计程序填空题综合练习(三)

VB语言程序设计综合练习：程序填空题11.题目：单击“打印”按钮在图片框pics中输出如下图所示的图形。

（要求for循环实现）
.
Private Sub command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
pics.Print Tab(10);
For j = 1 To
pics.Print Spc(1);
Next j
For j =
pics.Print "*";
Next j
pics.Print
Next i
End Sub
12. 题目：在窗体上放置一个文本框txts和一个标签lbla，并建立如下菜单：
菜单项菜单名称说明
操作（O）mnuop 一级菜单
….产生随机数mnura 二级菜单
….计算mnujs 二级菜单
单击“产生随机数”菜单项，产生10个两位随机整数，显示在文本框txts中。

单击“计算”菜单项，计算所产生数的平均值，并显示在标签lbla上。

窗体运行如下图。

（涉及的循环要求用for循环）
Dim a(1 To 10) As Integer
Private Sub mnujs_Click()
Dim sum As Integer
For i = 1 To 10
Next i
lbla.Caption = sum / 10
End Sub
Private Sub mnura_Click()
txts.Text = ""
For i = 1 To 10
a(i) =
txts.Text =
Next i
End Sub
13. 题目：制作顶级菜单（标题是：操作，名称是：mnuop），二级子菜单（标题：产生，名称：mnura）和二级子菜单（标题：运行，名称：mnurun）。

点击子菜单“产生”时，生成一个100~200之间的随机整数，显示在label1中；点击子菜单“运行”时，判断该随机数是否是素数，将判断结果显示在label2上。

运行界面如图所示。

（涉及的循环要求用for循环）
Private Sub mnura_Click()
Label1.Caption = Int(Rnd * 101) + 100
End Sub
Private Sub mnurun_Click()
Dim x As Integerx = Val(Label1.Caption)
For i = 2 To
If Then
Label2.Caption = "不是素数"
Exit For
End If
Next
If Then
Label2.Caption = "是素数"
End If
End Sub
14．题目：在文本框text1中输入x的值，编程求e x的近似值，要
求最后一项的值小于等于0.000 001 时停止计算，结果显示在标签label3中。

e x的展开式为：e x=1+x/1!+x2/2!+ x3/3!+…+ x n/n!。

程序运行界面如图所示。

（要求用do while……loop实现）
Private Sub Command1_Click()
Dim x As Integer
Dim s As Double
Dim n As Integer
x = Val(Text1.Text)
s = 1: n = 1
t =
Do While t > 0.000001
s = s + t
t =
Loop
Label3.Caption = s
End Sub
15. 题目：单击“运行”按钮Command1，求出100~150之间，能被5整除，但不能被3整除的数。

并求这些数之和，存入变量SUM中。

程序运行界面如下图。

（要求for循环实现）
Private Sub Command1_Click()
Dim i As Integer
For i = 100 To 150
If Then
Print i;
Sum =
End If
Next i
Print
Print "和为：" & Sum; ""
End Sub
16. 题目：求出150～200之间的素数，程序运行界面如图下所示。

单击“输出素数”按钮在标签lblpr中输出结果。

（要求for循环实现）
Private Sub Command1_Click()
For i = 150 To 200
For j = 2 To i - 1
If Then Exit For
Next j
If Then lblpr.Caption = lblpr.Caption & Str(i)
Next i
End Sub
17. 题目：单击窗体，产生10个20~80之间的随机正整数，排序后在窗体上输出。

运行界面如图所示。

（要求用for循环）
Private Sub Form_Click()
Dim s(1 To 10) As Integer
Dim max As Integer
Dim t As Integer
Randomize
Print "原始数据："
For i = 1 To 10
s(i) =
Print s(i); " ";
Next
Print
For i = 1 To 9
max = i
For j =
If s(max) < s(j) Then max = j
Next
t = s(max)
s(max) =
s(i) = t
Next
Print "排序后的数据："
For i = 1 To 10
Print s(i); " ";
Next
End Sub
18. 题目：在窗体上放置一个文本框Text1和一个标签Label1，并建立如下菜单：
单击“产生随机数”菜单项，产生1个10～99之间的随机整数，显示在文本框中。

单击“判断”菜单项，判断该随机数的个位数是否是奇数。

如果是奇数在标签中显示“是奇数”，否则标签上显示“不是奇数”。

窗体运行如下图。

Private Sub mnupd_Click()
Dim d As Integer
d = Val(Text1.Text) Mod 10
If Then
Label1.Caption = "是奇数"
Else
Label1.Caption = "不是奇数"
End If
End Sub
Private Sub mnura_Click()
Text1.Text =
End Sub
19. 题目：数组元素值逆置。

单击“产生字母”按钮Command1，产
生10个随机大写字母存放到数组中，并显示在标签中lblr。

单击“逆置”按钮Command2，将数组中的字母按相反顺序存放，然后输出到标签lblre。

运行界面如下图所示。

（要求for循环实现）
Dim s(1 To 10) As String
Private Sub Command2_Click()
lblre.Caption = ""
For i = 1 To 5
temp = s(i)
s(i) =
s(11 - i) = temp
Next i
For i = 1 To 10
lblre.Caption = lblre.Caption & s(i)
Next i
End Sub
Private Sub Command1_Click()
lblr.Caption = ""
For i = 1 To 10
s(i) =
lblr.Caption = lblr.Caption & s(i)
Next i
End Sub
20. 题目：字母由小到大排序。

窗体运行如下图。

单击“产生随机字母” 按钮Command1，产生10个大写的随机字母放入数组，并显示在图示的标签lblu上；单击“排序” 按钮Command2，将排序后的字母输出到图示的标签lblsort。

（涉及的循环要求用for循环）
Dim s(1 To 10) As String
Private Sub Command1_Click()
lblu.Caption = ""
For i = 1 To 10
s(i) =
lblu.Caption = lblu.Caption & s(i)
Next i
End Sub
Private Sub Command2_Click()
lblsort.Caption = ""
For i = 1 To 9
Min = i
For j =
If s(j) < s(Min) Then Min = j
Next j
t = s(Min): s(Min) = : s(i) = t Next i
For i = 1 To 10
lblsort.Caption = lblsort.Caption & s(i)
Next i
End Sub。