vb在此一搏讲义.doc

VB期末测试题 一、填空题：（10 * 2 = 20） 1、VB中的整型数在计算机中占 个字节，表示数的范围是 。 2、变量命名规则要求变量名必须以 开头，其后可由字母、数字、下划线组成，长度不超过 个字符。 3、CHR（ASC（“ABCD”））的值是 LOG（EXP（3））的值是 4、RND函数产生的随机数区间是 5、逻辑运算符中，运算级别最高的是 6、语句X=X+1的含义是 7、Print方法具有 和 功能。 8、语句X = 5 = 3中，第一个“=”是 号，第二个“=”是 号 9、要定义一个单精度符号常量PI，其值为3.1416应该使用的语句是： 10、有如下语句：Dim x as Integer，y ，z as String * 8，则声明的变量x，y，z的类型分别是 型、 型和 型。 二、选择题（） 3. 以下程序的输出结果是______。8 Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.101√ 4. 以下程序的循环次数是______。11 Private Sub Command1_Click() 　　For j=8 To 35 Step 3 Print j; Next j End Sub A.10 ‘int(35-8)/3+1√ B.9 C.27 D.28 5. 执行下面程序段后，变量a的值为______。20 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9　 C.14√ D.21 6. 执行下面程序段后，变量x的值为______。20 x=5 For I=1 To 20 step 2 x=x+I\5 Next I A.21√ B.22 C.23 D.24 7. 当输入4时，以下程序的输出结果是______。7 Private Sub Command1_Click() 　　x=InputBox(x) If x^215 Then y=1/x If x^215 Then y=x^2+1 Print y End Sub A.4 B.17√ C.18 D.0.25 8. 运行下面程序后，在弹出的消息窗口中显示的是______。3 Private Sub Form_Click() Dim counter counter=0 While counter20 counter=counter+1 Wend MsgBox counter End Sub A.0 B.21 C.20√ D.19 9. 运行下面程序后，在窗体中显示的是______。4 Private Sub Form_Click() a$=*: b$=$ For k=1 To 3 x$=String$(Len(a$)+k,b$) ‘指定长度重复字符的字符串。 Print x$; Next k Print End Sub A.、*** ** **** B.*$*$*$　 C.1*$2*$3*$ D.、$$$$$$$$$√ 10. 下面程序运行后，单击命令按钮，在两个文本框中显示的值分别为______。7 Private Sub C