VB操作题题库重要[精心整理].doc
文本预览下载声明
1.这是打印乘法九九表的程序,请完善程序。
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
2.(1)运行程序能够显示数字金字塔,请完善程序。
Private Sub Form_Click()
Dim i As Integer, j As Integer
For i = 1 To ①
Print Tab(10 - i);
For j = 1 To ②
Print Str(③);
Next ④
Print
Next i
End Sub
2.(2)运行程序能够显示数字金字塔,请完善程序。
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 i
Print Str(i);
Next j
Print
Next i
End Sub
3.输出平行四边形
Private Sub Command1_Click()
Dim i, j As Integer
For i = 1 To 4
Print Tab(6 - i);
For j = 1 To 4
Print *;
Next j
Print
Next i
End Sub
4本题是在text1中输入一位十六进制数码(若是字母要大写),
运行程序后能译出它表示的十进制数的程序。
请不要更改源程序的结构,删除原题里的①、②、③。填写正确的代码,使程序完善
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
5.文本框中输入一个三位正整数,求各位数字之和。如输入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
6 回文字符串是指一个字符串从左往右读与从右往左读是一样的,如ABCBA,123321等等。编写程序,输入一个字符串,若是回文字符串,则输出YES,否则输出NO。
以下程序使用文本框Text1输入字符串,使用文本框Text2输出结果,
请在程序的两个空格处填上相应的字句,使之完成相应的功能。
Private Sub Command1_Click()
Dim s As String
Dim ok As String
Dim i As Integer
s = Text1.Text
ok = Yes
For i = 1 To ①
If Mid(s, i, 1) ② Then ok = No
Next i
③
End Sub
7输入一个数,判断该数是否为完数。所谓完数即该数等于其因子之和。
例如:6=1+2+3;28=1+2+4+7+14。若是完数则输出。
Private Sub cmdPerfect_Click()
Dim m As Integer
显示全部