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

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. 题目：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．题目：ex 的近似值，要求最后一项的值小于等于0.000 001 时停止计算，结果显示在标签label3中。ex 的展开式为：ex=1+x/1!+x2/2!+ x3/3!+…+ xn/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~之间，能被5整除，但不能被3整除的数。并求数之和，存入变量SUM中。 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. 题目：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. 题目：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