2014中职VB语言程序设计程序填空题综合练习（二）.docVIP

VB语言程序设计综合练习：程序填空题 程序填空题 题目：txtin输入一个十进制整数将其转化为二进制数。程序运行界面如下图所示。单击“转换”按钮，标签lblre中输出二进制数。 Private Sub Command1_Click() Dim n As Long lblre.Caption = n = Val(txtin.Text) DO While n 0 r = lblre.Caption = r lblre.Caption LOOP End Sub 2. 题目：picture1中输出如图下所示的图形。（涉及的循环要求用for循环） Private Sub command1_Click() For i = 1 To 5 picture1.Print Tab(10 + i); $; For j = picture1.Print *; Next j picture1.Print $; picture1.Print Next i Tab(10 + i); *; End Sub 3. 题目：Private Sub Form_Click() Scale (-10, 300)-(300, -10) DrawWidth = 3 Line (-10, 0)-(300, 0): Line (0, 300)-(0, -10) For x = y = PSet (x, y) Next x End Sub 4．题目：Private Sub Command1_Click() Dim s As String s = Text1.Text For i = 1 To Len(s) If LCase(Mid(s, i, 1)) a Or Then Exit For End If Next If Then Label1.Caption = 全是字母 Else Label1.Caption = 不全是字母 End If End Sub 5. 题目：… +10！的值，程序运行界面如图下所示。单击“计算”按钮command1在标签lblre中输出结果。（要求for循环实现） Private Sub Command1_Click() Dim s As Long Dim n As Long s = 0: n = 1 For i = 1 To 10 Next i lblre.Caption = s End Sub 6．题目：“产生数据” 按钮Command1，产生5个10~99之间的随机整数放入数组s，并显示在图示的标签lblra上；单击“排序” 按钮Command2，将数组排序后的数据输出到图示的标签lblre。（要求for循环实现） Dim s(1 To 5) As String Private Sub Command1_Click() lblra.Caption = For i = 1 To 5 s(i) = lblra.Caption = lblra.Caption Str(s(i)) Next i End Sub Private Sub Command2_Click() lblre.Caption = For i = 1 To 4 Min = i For j = If Then Min = j Next j t = s(Min): : s(i) = t Next i For i = 1 To 5 lblre.Caption = lblre.Caption Str(s(i)) Next i End Sub 7. 题目：… + 1/n！+ …，计算e的近似值，直到当前累加项小于10-7为止。运行界面如下图所示。单击“计算”按钮在标签lblre中输出结果。（要求用while…wend循环） Private Sub Command1_Click() Dim t As Single Dim i As Integer Dim e As Single t = 1: i = 1: e = 1 DO While 1 / t = 0.0000001 t = t * i