VB程序设计阶段性作业21.docVIP

中国地质大学（武汉）远程与继续教育学院 中国地质大学(武汉)远程与继续教育学院 VB程序设计课程作业2（共 4 次作业） 学习层次：专升本 涉及章节：第5章 ——第7章 一、判断题 1．For/Next语句中，循环控制变量只能是整型变量。 2．Do/Loop While结构中的循环体，至少被执行一次。 3．Do/Loop Until结构的循环，是“先判断、后执行（循环体）”的循环结构。 4．使用On Error GoTo语句并编写相应程序，可以捕获程序中的编译错误。 二、选择题 1．若i的初值为8，则下列循环语句的循环次数为 次。 Do While i=17 i=i+2 Loop A、3次 B、4次 C、5次 D、6次 2．由“For i=1 To 9 Step -3”决定的循环结构被执行 次。 A、4 B、5 C、6 D、0 3．窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 。 A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0 三、填空题 1．声明动态数组的语句是 语句。 2．语句“Dim c As ”定义的变量c，可用于存放控件的Caption的值。 3．用Dim c(2 to 5) As Integer 语句定义的数组占用 个字节的内存空间。 四、程序阅读题（写出下列程序的运行结果） 程序1. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(5, 5) As Byte, i AsByte, j As Byte For i = 1 To 5 : For j = 1 To 5 a(i, j) = i * j Next j, i For i = 1 To 5 : Print a(i, i); : Next i End Sub 程序2. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim i As Integer, j As Integer For i = 1 To 6 Print Spc(6 - i) ; For j = 1 To (2 * i) - 1: Print W; : Next j Print Next i End Sub 程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(1 To 2,1 To 3) As Integer, i As Integer, j As Integer For i = 1 To 2 For j = 1 To 3 a(i,j) = i + j: Print Tab(j * 5 + 2); a(i,j), Next j Print Next i End Sub 五、程序填空题 1．【程序说明】以下程序产生30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。 Private Sub Form_Click() Dim a(30) As byte, i as Byte, j As Byte, m As Byte For i = 1 To 30: a(i) =  = 1 \* GB2 ⑴ : Next i For i = 1 To 29 For j =  = 2 \* GB2 ⑵ If a(i) a(j) Then m = a(i):  = 3 \* GB2 ⑶ :a(j) = m End If Next j,i For i = 1 To 30 If  = 4 \* GB2 ⑷ Then Print a(i); Next i End Sub 2．【程序说明】以下是一个简化了的猜数游戏程序，自动生成一个小于100的随机正整数与您用输入对话框输入的数进行对比，猜中后输出相关信息，过程结束。 单击窗体则开始猜数，如要终止Visual Basic程序运行可以按Ctrl+Break组合键。 Private Sub Form_Click() Dim r As Integer, x As Integer, i As Intege