算法与程序设计VB试题与答案11

VB11
1、打开“考生文件夹\775\中的文件“找最大最小数.vbp”，完善Command1_Click事件代码并保存。

实现功能：随机产生10个100以内的整数，并找其中的最大数、最小数，输出在窗体上。

Private Sub Command1_Click()
Dim a(10) As Integer
Dim max As Integer
Dim min As Integer
Randomize
Print "产生10个随机整数:";
For i = 1 To 10
a(①) = Int(Rnd * 100)
Print a(i);
Next i
Print
min = a(1)
② = min
For i = 2 To 10
If a(i) < min Then min = a(i)
If a(i) > max Then max = ③
Next i
Print "最大数："; max, "最小数："; min
End Sub
①i ②max ③a(i)
2、打开文件“考生文件夹\729\工程1.vbp”，完善Form_Click事件代码并保存。

实现功能：在窗体上显示如图所示的数字金字塔。

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To ①
Print Tab(10 - i);
For j = 1 To ②
Print Str(i);
Next j
③
Next i
End Sub
①5 ②i ③print
3、打开文件“考生文件夹\730\工程1.vbp”，完善Form_Click事件代码并保存。

实现功能：在窗体上显示如图所示的数字金字塔。

Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
Print Tab(10 - i);
For j = 1 To ①
Print ②;
Next j
③
Next i
End Sub
①i ②str(j) ③print
4、打开“考生文件夹\773\中的文件“工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：文本框中输入一个3位正整数，求各位数字之和。

例如：输入835，计算8+3+5，在标签上输出计算结果16。

Private Sub Command1_Click()
Dim a As Integer
Dim s As Integer
a = ①(Text1.Text)
For i = 1 To ②
s = s + ③
a = ④
Next
Label1.Caption = Str(s)
End Sub
①val ②3 ③a mod 10 ④a\10
5、打开文件“考生文件夹\733\工程1.vbp”，完善Command1_Click事件代码并保存。

实现功能：在文本框Text1中输入一位十六进制数（若是字母要大写），单击“运行”按钮后，在文本框Text2中显示它表示的十进制数。

（详见样张）
Private Sub Command1_Click()
Dim m As String
m = ①
Select Case m
Case "A"
m = "10"
Case "B"
m = "11"
Case "C"
m = "12"
Case "D"
m = "13"
Case "E"
m = "14"
Case "F"
m = "15"
②
Text2.Text = ③
End Sub
①text1.text ②end select ③m
6、打开文件“考生文件夹\725\工程1.vbp”，完善Form_Click事件代码并保存。

实现功能：在窗体上打印如图所示的九九乘法表。

Private Sub Form_click()
Dim i As Integer
Dim j As Integer
For i = 1 To ①
For j = 1 To ②
Print Tab((j - 1) * 12); Print j; "*"; i; "="; ③; Next j
Print
Next i
End Sub
①9 ②i ③j*i。