文档详情

VB操作题题库重要[精心整理].doc

发布:2017-01-04约1.06万字共15页下载文档
文本预览下载声明
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
显示全部
相似文档