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

VB语言程序设计综合练习：程序填空题 21．题目：10 个100~200 之间的正整数，将它们按从大到小的顺序排列。运行界面如图所示。(要求用for循环) Private Sub Command1_Click() Dim x(1 To 10) As Integer Cls Print Randomize Print 原始数据： For i = 1 To 10 x(i) = Print x(i); Next i Print: Print Print 排序数据： For i = 1 To 9 Max = i For j = If x(Max) x(j) Then Next j t = x(Max): x(Max) = : x(i) = t Next i For i = 1 To 10 Print x(i); Next i End Sub 22．题目：Command1求P 的值。P=1+1/(1+2)+1/(1+2+3)+…+1/(1+2+3+…+10)。（要求for循环实现）运行界面如图: Private Sub Command1_Click() Dim p As Single, s As Single p = s = 0 For i = 1 To 10 s = p = Next i Print p= p End Sub 23. 题目：txts和一个标签lbla，并建立如下菜单： 菜单项 菜单名称 说明 操作（O） mnuop 一级菜单 ….产生随机数 mnura 二级菜单 ….统计 Mnupd 二级菜单 单击“产生随机数”菜单项，产生1个60～90之间的随机整数，显示在文本框txts中。单击“判断”菜单项，判断所产生数是否是奇数，并显示在标签lbla上。窗体运行如下图。 . Dim a As Integer Private Sub mnupd_Click() If Then lbla.Caption = 是奇数 Else lbla.Caption = 非奇数 End If End Sub Private Sub mnura_Click() txts.Text = a = txts.Text = a End Sub 24．题目：Command1窗体显示出具有9行的“杨辉三角形”。运行效果如下图所示。（要求for循环实现） Private Sub Command1_Click() Dim a(1 To 9, 1 To 9) As Integer For i = 1 To 9 a(i, 1) = 1: Next i For i = 3 To 9 For j = 2 To a(i, j) = Next j Next i For i = 1 To 9 For j = 1 To Print Tab(j * 5 - 4); Next j Print Next i End Sub 25. 题目：1!+2!+3!+……+10!的值，并在窗体上输出。Private Sub Form_Click() Dim n As Long Dim s As Long n = s = 0 For i = 1 To 10 n = s = s + n Next Print s End Sub 26．题目：Private Sub Form_Click() Dim se As String Print Tab(35); 九九乘法表 Print Tab(35); --------------- For i = 1 To 9 For j = 1 To se = i × j = i * j Print ; se; Next j Print Next i End Sub 27. 题目： Private Sub Command1_Click() For i = 1 To 10 For j = 1 To picture1.Print Spc(1); Next For j = 1 To 10 pict