第3章结构化程序设计与数组.docVIP

第3章 结构化程序设计与数组 习 题 一、判断题 2．在行If语句中，关键字End If是必不可少的。 3．块If结构中的Else子句可以缺省。 4．For/Next语句中，循环控制变量只能是整型变量。 5．For/Next语句中，“Step 1”可以缺省。 6．For/Next循环正常（未执行Exit For）结束后，控制变量的当前值等于终值。 7．在循环体内，循环变量的值不能被改变。 8．Do/Loop While结构中的循环体，至少被执行一次。 9．Do/Loop Until结构的循环，是“先判断、后执行（循环体）”的循环结构。 10．使用On Error GoTo语句并编写相应程序，可以捕获程序中的编译错误。 二、选择题 A、只能是变量名 B、可以是整型 C、可以是字符型 D、可以是浮点类型 2．下列关于Select Case的叙述中，错误的是 。 A、Case 10 To 100 表示判断Is是否介于10与100之间 B、Case abc,ABC 表示判断Is是否和abc、ABC两个字符串中的一个相同 C、Case X 表示判断Is是否为大写字母X D、Case -7,0,100 表示判断Is是否等于字符串-7，0，100 3．由“For i=1 To 16 Step 3”决定的循环结构被执行（ ）次。 A、4 B、5 C、6 D、7 4．若i的初值为8，则下列循环语句的循环次数为 次。 Do While i=17 i=i+2 Loop A、3次 B、4次 C、5次 D、6次 5．由“For i=1 To 9 Step -3”决定的循环结构被执行 次。 A、4 B、5 C、6 D、0 6．窗体通用部分的语句“Option Base 1”，决定本窗体中数组下标界 。 A、下界必须为1 B、缺省的下界为1 C、下界必须为0 D、缺省的下界为0 三、填空题 1．若xy，则交换变量x、y值的行If语句写作 2．Select Case结构中测试表达式的值，在其表达式列表中用 3．用InputBox函数为数组B所有元素B(0)、B(1)、、B(9)依次赋值的语句写作 4．声明动态数组的语句是 5．语句Dim c As ”定义的变量c，可用于存放控件的Caption的值。 6．用Dim c(2 to 5) As Integer 语句定义的数组占用 四、程序阅读题（写出下列程序的运行结果） 1. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a As Integer, s As Integer a = 5: s = 0 Do While a = 0 s = s + a: a = a - 1 Loop Print s; a End Sub 程序2. 请写出输入8、9、3、0Private Sub Form_Click() Dim i As Integer, sum As Integer, m As Integer Do m = InputBox(请输入m, 累加和等于 sum) If m = 0 Then Exit Do sum = sum + m Loop Print sum End Sub 程序3. 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() Dim a(5) As Byte, i As Byte a(0) = 1 For i = 1 To 5 a(i) = a(i - 1) + i: Print a(i); Next i End Sub 程序4. 请写出单击窗体后，窗体上的显示结果。 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 程序5. 请写出单击窗体后，窗体上的显示结果。 Priv