VB期末复习题汇总+答案Word格式.docx

1、 y=y+1loopprint x a） 2 b） 5 c） 10 d） 20 答案：C 6） 当执行以下程序时，在名为lblResult的标签框内将显示_。 Private Sub cmdlt_click（） Dim I,R R=0 For I=1 To 5 Step 1 R=R+I Next I lblResult.Caption=Str（R） End Sub a） 字符串15 b） 整数15 c） 字符串5 d） 整数5 答案：7） 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入_。 X=1 do x=x+3 print x loop until（_） a

2、） x=8 b） x=7 d） x5 then if b3 then c=a*b c=a mod b End if b） -1 c） 1 d） 6 答案：9） 设有如下语句：str1=inputbox（输入,练习）从键盘上输入字符串“示例”后，str1的值是_。 a） “输入” b） “” c） “练习” d） “示例” 答案：10） 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change（ ） Text2.text=ucase（Text1.text） End Sub则在Text1文本框输入“visual basic”

3、，Text2将_。 a） Text2中无内容显示。 b） Text2显示VISUAL BASIC。 c） Text2显示visual basic d） Text1显示 答案：11） 下列程序的运行后s的值是_。 S=0 For x=99 to 1 Step-2 Next x a） 100 b） 500 c） 2500 d） 5000 答案：12） 下列程序的执行结果是_。 K=0 For I=1 To 3 a=IIK print a; Next I a） 1 1 1 b） 1 2 3 c） 0 0 0 d） 1 4 9 答案：13） 下列程序的执行结果是_。Dim a（5） As String

4、Dim b As IntegerDim I As IntegerFor I =0 To 5 a（I）=I+1 Print a（I）Next I a） 123456 b） 6 c） 654321 14） 下列程序的执行结果为_。 Dim intsum As Integer Dim I As Integer intsum=0 For I=20.2 To 5 Step -4.7 intsum=intsum +I Print intsum a） 150 b） 200 15） 下列程序的执行结果为_。Dim S As Integer,n As Integer S=0:n=1 Do While n=100

5、 S=S+n n=n+1 Print S a） 5050 b） 2500 c） 3000 d） 4000 答案：16） 下列程序的执行结果为_。 A=100:b=50b Then a=a-b Else b=b+a Print a a） 50 b） 100 c） 200 d） 10 答案：17） 下列程序的执行结果为_。 For I=0 To 50 Step 10 intsum=intsum+I18） 下面程序执行后，X的结果为_。 X=0 For I =1 to 5 For j=I to 5 X=X+1 Next j Print X a） 5 b） 10 c） 15 19） 下面程序执行的结果

6、是_。 Private Sub Form_Click（） A$=123:B$=456 C=Val（A$）+Val（B$） Print C100 a） 123 b） 3 d） 579 答案：20） 下列循环语句将执行_次。 A=100 Do Print a a=a+1 Loop until a=10 c） 100 d） 死循环 答案：21） 下面程序段的循环结构执行后， 的输出值是_。程序段为： For I=1 to 10 step 2 y=y+I print I; a） 25 c） 11 d） 因为Y的初值不知道，所以不确定 答案：22） 写列程序段的执行结果_。 A=abbacddcba f

7、or I=6 to 2 step -2 x=mid（a,I,I） y=left（a,I） z=right（a,I） z=x & y & z next I print Ucase（z） a） ABA b） AABAAB c） BBABBA d） ABBABA 答案：23） 以下语句输出结果是（在立即窗口中）_。Beijing b=ShangHai Print a;b a） Beijing ShangHai b） Abeijing ShangHai c） BeijingShangHai d） Abeijing 答案：24） 有如下程序：For I=1 To 3 For j=5 To 1 Step-

8、1 Print I+jNext j,I其循环执行的次数为_。 a） 12 b） 13 c） 14 d） 15 答案：25） 有如下程序段，该程序执行后，变量a的值为_。 For I=1 To 2 For J=I To 2 For K=1 To J a=a+2 Next J b） 8 26） 执行下列程序后，变量a的值为_。 Dim I as integer dim a as integer a=0 for I=0 to 100 step 2 next I c） 51 27） 执行下列程序后，X的值为_。 X=3 y=6 Do While y=6 x=x*y Loop a） 3 c） 18 28

9、） 执行下列程序段后，整型变量c的值为_。A=24b=328select case b10 case 0 c=a*10+b case 1 to 9 c=a*100+b case 10 to 99 c=a*1000+bend select a） 537 b） 2427 c） 24328 d） 240328 答案：29） 执行完下面的程序段后，循环将执行_次。 For I=1.7 To 5.9 Step 0.9 b） 4 30） 有如下语句，执行后该段语句的循环次数是_。 Dim s,I,j as integer For I =1 to 3 For j=3 To 1 Step-1 S=I*j a）

10、 9 c） 3 d） 4 答案：31） 有如下程序，该程序将_。 For I=1 to 10 step 0 K=k+2 a） 形成无限循环。 b） 循环体执行一此后结束循环。 c） 语法错误。 d） 循环体不执行即结束循环。32） 有如下程序段，该程序段执行完毕后，共循环了_。 For I=1 To 5 For j=1 To I For k=j To 4a Next k a） 4 c） 38 d） 40 答案：33） 有如下程序，该程序的运行结果为_。 Dim k As Integer n=5:m=1:k=1 Do While k=n m=m*2 k=k+1 Print m c） 32 34）

11、 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。 Private Sub Command_Click（） Dim x As Double For I=0 To 1000 If _ Then x=x+I Print x a） i Mod 2 = 0 b） x Mod 2 = 0 c） I Mod 2 0 d） x Mod 2 0 答案：35） 以下是计算10的阶乘的程序，请补充该程序。 Dim t as single Dim k as Integer k=0:t=1 While_ t=t*k Wend Print t a） k c） k=10 d） k=10 答案：36） _是由V

12、isual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。 a） 文件 b） 属性 c） 方法 d） 窗体 答案：37） 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_。 a） 单选按钮 b） 图片框 c） 通用对话框 d） 文本框 答案：38） 下列各项不是Visual Basic的基本数据类型的是_。 a） Char b） String c） Integer d） Double 答案：39） 下列运算结果中，值最大的是 _。 a） 34 b） 3/4 c） 4 mod 3 d） 3 mod 4 答案：40） 以下不属控件的一项是_。 a）

13、文本框 b） 标签框 c） 列表框 d） 消息框 答案：41） 用InputBox函数可帮助生成_。 a） 消息框 b） “保存”对话框 c） 简单输入框 d） “颜色”对话框 答案：42） _对象不能响应Click事件。 a） 列表框 c） 窗体 d） 计时器 答案：43） 17 mod 3的运算结果是_。 a） 0.5 b） 1 c） 1.5 d） 2 答案：44） 变量X=32769，则变量声明时不能将其声明为_。 a） Intrger b） Variant c） Long d） Single 答案：45） 表达式2*32+2*8/4+32的值为_。 a） 64 b） 31 c） 49

14、d） 22 答案：46） 复选对象是否被选中，是由其_属性决定的。 a） Checked b） Value c） Enabled d） Selected 答案：47） 没有Caption属性的控件是_。 a） Label b） OptionButton c） Frame d） LisBox 答案：48） 下列符号是Visual Basic中合法变量名的是_。 a） IF b） 7AB c） AB7 d） AB_7 答案：49） 使窗体自动向下移动的语句是Move_。 a） Left, Top+100 b） Top+100 c） Top+100 d） Top=Top+100 答案：50） RGB

15、函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_属性。 a） Max和Min b） SmallChange和LargeChange c） Scroll和Change d） Value 答案：51） _控件可以使用SetFocus（）方法。 a） Frame b） Label c） TextBox d） Timer 答案：52） 滚动条单击边上的箭头按钮移动的大小由_设定。 a） Change b） SmallChange c） Scroll d） Tab

16、stop 答案：53） 下列程序段的执行结果为_。 N=0:J=1 Do Until N2 N=N+1 J=J+N*（N+1） Print N;J a） 0 1 b） 3 7 c） 3 21 d） 3 13 答案：54） 下列程序段的执行结果为_。X=6For K=1 To 10 Step -2 X=X+KNext K Print K;X a） -1 6 b） -1 16 c） 1 6 d） 11 31 答案：55） 下列程序段的执行结果为_。K=0For J=1 to 2 For I = 1 to 3 K =I+1 For I = 1 to 7 K = K+1 Next JPrint K d

17、） 16 答案：56） 下列程序段的执行结果为_。 M=0 For J =5 To 1 Step-1 N = N+1 Next J,IJ;I a） 12 0 4 b） 15 0 4 c） 12 3 1 d） 15 3 1 答案：57） 下列程序段运行后，输出结果是_。 B=1 Do until b7 b=b*（b+1） a） 7 c） 42 58） 下列程序共执行了_循环。 Dim j As Integer For I=1 To 10 Step 2 For j=1 To 5 Step 2 intsum=intsum+j b） 20 c） 25 59） x是小于100的非负数，用vb表达式正确的

18、是_。 a） 0 b） 0=x100 =0 AND x d） 0=x OR x100 答案：60） 15.52的结果是_。 b） 1.5 c） 7 d） 8 答案：61） 19.5 Mod 2*2的运算结果是_。 a） 3.5 62） a=5,b=8,则int（b-a）*rnd+a）的结果是介于_之间的整数。 a） 5,8） b） （0,5） c） 3,5） d） （0,3 答案：63） a和b中有且只有一个为0，可以用以下表达式来表示_。 a） a=0 or b=0 b） a=0 Xor b=0 c） a*b=0 And a+bX是_。 a） 算术表达式 b） 非法表达式 c） 字符串表达式 d） 关系表达式 答案：76） 不能作为容器的对象是_。 a） 窗体 b） 框架 c） 图片框 d） 图像框 答案：77） 窗体的 BackColor 属性用于设置窗体的_。 a） 高度 b） 亮度 c） 背景色 d） 前景色 答案：78