淮阴工学院VB题库天空教室大全

1、我的试卷测试得分： 42.0 分1. 单选题： （1.0分）以下叙述中正确的是 。A.窗体的Name属性指定窗体的名称，用来标识一个窗体B.窗体的Name属性的值是显示在窗体标题栏中的文本C.可以在运行期间改变对象的Name属性的值D.对象的Name属性值可以为空解答：A   参考答案： A   2. 单选题： （1.0分）以下关于窗体的描述中，错误的是 。A.执行Unload Form1语句后，窗体Form1消失，但仍在内存中B.窗体的Load 事件在加

2、载窗体时发生C.当窗体的Enabled 属性为False时，通过鼠标和键盘对窗体的操作都被禁止D.窗体的Height、Width属性用于设置窗体的高和宽解答：B   参考答案： A   3. 单选题： （1.0分）以下能够触发文本框Change事件的操作是 。A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容解答：D   参考答案： D   4. 单选题： （1.0分）在窗体上有一个文本框控件，名称为

3、Txttime：一个计时器控件，名称为Timerl，要求每一秒钟在文本框中显示一次当前的时间。程序为：Private Sub Timer1_ _（）Txttime.Text=TimeEnd Sub在下划线上应填入的内容是 。A.EnabledB.VisibleC.IntervalD.Timer解答：D   参考答案： D   5. 单选题： （1.0分）在窗体上画两个单选按钮，名称分别为Option1、Option2，标题分别为“宋体”和“黑体”；一个复选框，名称为Check1,标题为“粗体”；一个文本框

4、，名称为Text1，Text属性为“改变文字字体”。要求程序运行时，“宋体”单选按钮和“粗体”复选框被选中，则能够实现上述要求的语句序列是 。A.Option1.Value=True：Check1.Value=FalseB.Option1.Value=True：Check1.Value=TrueC.Option2.Value=False：Check1.Value=TrueD.Option1.Value=True：Check1.Value=1解答：D   参考答案： D   6. 单选题： （1.0分）为了

5、在按下Esc键时执行某个命令按钮的Click事件过程，需要把该命令按钮的一个属性设置为True，这个属性是 。A.ValueB.DefaultC.CancelD.Enabled解答：C   参考答案： C   7. 单选题： （1.0分）图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是 。A.AutosizeB.StretchC.AutoredrawD.Appearance解答：B   参考答案： B   8.&

6、#160;单选题： （1.0分）以下叙述中错误的是 。A.在同一窗体的菜单项中，不允许出现标题相同的菜单项B.在菜单的标题栏中，“&”所引导的字母指明了访问该菜单项的访问键C.程序运行过程中，可以重新设置菜单的Visible属性D.弹出式菜单也在菜单编辑器中定义解答：A   参考答案： A   9. 单选题： （1.0分）设在菜单编辑器中定义了一个菜单项，名为Menu1。为了在运行时隐藏该菜单项，应使用的语句是 。A.Menu1.Enabled=TrueB.Munu1.Enab

7、led=FalseC.Menu1.Visible=TrueD.Menu1.Visible=False解答：D   参考答案： D   10. 单选题： （1.0分）在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置语句是 。A.Timer1.Interval=0.5B.Timer1.Interval=5C.Timer1.Interval=50D.Timer1.Interval=500解答：D   参考答案： D &

8、#160; 11. 单选题： （1.0分）表示滚动条控件取值范围最大值的属性是_。A.MaxB.LargechangeC.ValueD.Max-Min解答：A   参考答案： A   12. 单选题： （1.0分）在窗体上画一个名称为List1的列表框，一个名称为Label1的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是 。A.Label1.Caption = List1.ListindexB.La

9、bel1. Name = List1. ListindexC.Label1.Name = List1.TextD.Label1.Caption = List1.Text解答：D   参考答案： D   13. 单选题： （1.0分）当一个复选框被选中时，它的Value属性的值是 。A.3B.2C.1D.0解答：C   参考答案： C   14. 单选题： （1.0分）以下叙述中错误的是 。A.双击鼠标可以触发Dblc

10、lick事件B.窗体或控件的事件的名称可以由编程人员确定C.移动鼠标时，会触发Mousemove事件D.控件的名称可以由编程人员设定解答：B   参考答案： B   15. 单选题： （1.0分）设窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是 。A.List1.ListB.List1.ListindexC.List1.IndexD.List1.Text解答：B   参考答案： D   16.

11、60;单选题： （1.0分）程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是 。A.MousedownB.MouseupC.LoadD.Click解答：C   参考答案： C   17. 单选题： （1.0分）如果要改变窗体的标题，则需要设置的属性是 。A.CaptionB.NameC.BackcolorD.Borderstyle解答：A   参考答案： A   18. 单选题： （1.0分）设组合

12、框Combo1中有3个项目，则以下能删除最后一项的语句是 。A.Combo1.Removeitem TextB.Combo1.Removeitem 2C.Combo1.Removeitem 3D.Combo1.Removeitem Combo1.Listcount解答：B   参考答案： B   19. 单选题： （1.0分）以下关于焦点的叙述中，错误的是 。A.如果文本框的Tabstop属性为False，则不能接收从键盘上输入的数据B.当文本框失去焦点时，触发Lostfocus事件C.当文本框

13、的Enabled属性为False时，其Tab顺序不起作用D.可以用Tabindex属性改变Tab顺序解答：A   参考答案： A   20. 单选题： （1.0分）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程 Private Sub Command1_Click（）Move 500，500End Sub程序运行后，单击命令按钮，执行的操作为A.命令按钮移动到距窗体左边界、上边界各500的位置B.窗体移动到距屏幕左边界、上边界各500的位置C.命令按钮向左、上方向各移动500D.窗体

14、向左、上方向各移动500解答：B   参考答案： B   21. 单选题： （1.0分）在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是 。A.TabstopB.EnabledC.VisibleD.Tabindex解答：D   参考答案： D   22. 单选题： （1.0分）以下关于图片框控件的说法中，错误的是 。A.可以通过Print方法在图片框中输出文本B.清空图片框控

15、件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用Stretch属性可以自动调整图片框中图形的大小解答：D   参考答案： D   23. 单选题： （1.0分）以下叙述中错误的是 。A.下拉式菜单和弹出式菜单都用菜单编辑器建立B.在多窗体程序中，每个窗体都可以建立自己的菜单系统C.除分隔线外，所有菜单项都能接收Click事件D.如果把一个菜单项的Enabled属性设置为False，则该菜单项不可见解答：C   参考答案： D  

16、60;24. 单选题： （1.0分）设窗体上有一个文本框，名称为Text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是 。A.Text1.Maxlength=0B.Text1.Enabled=FalseC.Text1.Visible= FalseD.Text1.Width=0解答：B   参考答案： B   25. 单选题： （1.0分）以下能在窗体Form1的标题栏中显示“Visualbasic窗体"的语句是 。A.Form1.N

17、ame="Visualbasic窗体"B.Form1.Title="Visualbasic窗体"C.Form1.Caption="Visualbasic窗体"D.Form1.Text="Visualbasic窗体"解答：C   参考答案： C   26. 单选题： （1.0分）设菜单中有一个菜单项为"Open"。若要为该菜单命令设计访问键，即按下Alt及字母O时，能够执行"Open"命令，则在菜单

18、编辑器中设置“Open"命令的方式是 。A.把Caption属性设置为&OpenB.把Caption属性设置为O&PenC.把Name属性设置为&OpenD.把Name属性设置为O&pen解答：A   参考答案： A   27. 单选题： （1.0分）如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入 。A.-B.+C.&D.#解答：A   参考答案： A   28. 

19、;单选题： （1.0分）窗体Form1的名称属性是frm，它的Load事件过程名是 。A.Form_LoadB.Form1_LoadC.frm_LoadD.me_Load解答：C   参考答案： A   29. 单选题： （1.0分）Visual Basic程序设计时常用的Print、Cls属于 。A.属性B.打印字库C.方法D.事件解答：C   参考答案： C   30. 单选题： （1.0分）单选按钮（

20、OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件，可在不同的 中安排适当的单选按钮，即可实现。A.框架控件（Frame）或图像控件(Image)B.组合框（ComboBox）或图像控件(Image)C.组合框（ComboBox）或图片框（PictureBox）D.框架控件（Frame）或图片框（PictureBox）解答：D   参考答案： D   31. 单选题： （1.0分）在程序中可以通过复选框和单选按钮的 属性值来判断它们的当前状态它。A.CaptionB.

21、ValueC.CheckedD.Selected解答：B   参考答案： B   32. 单选题： （1.0分）使用 方法可将新的列表项添加到一个列表框中。A.PrintB.AddItemC.ClearD.RemoveItem解答：B   参考答案： B   33. 单选题： （1.0分）在以下有关对象属性的叙述中错误的是 。A.所有对象都具有Name 属性。B.只能在执行时设置或改变的属性为执行时属性。C.对象的某

22、些属性只能在设计时设定，不能使用代码改变。D.Enabled属性值设为False的控件对象在窗体上将不可见。解答：D   参考答案： D   34. 单选题： （1.0分）以下使用方法的语句中，正确的是 。A.List1.ClearB.Form1.ClearC.Combo1.ClsD.Picture1.Clear解答：C   参考答案： A   35. 单选题： （1.0分）PictureBox、Frame、OptionBut

23、ton、ListBox、TextBox、Form、ComboBox这7个对象中，具有Caption属性的有 个。A.3B.4C.2D.5解答：B   参考答案： A   36. 单选题： （1.0分）以下使用方法的代码中，正确的是_。A.Label1.SetFocusB.Form1.ClearC.Text1.SetFocusD.Combo1.Cls解答：A   参考答案： C   37. 单选题： （1.0分）放置控件到窗体中

24、的最迅速的方法是_。A.双击工具箱中的控件B.单击工具箱中的控件C.拖动鼠标D.单击工具箱中的控件并拖动鼠标解答：D   参考答案： A   38. 单选题： （1.0分）Image 控件加载图片后的尺寸_A.比图片大B.比图片小C.与图片大小不同D.与图片大小相同解答：D   参考答案： D   39. 单选题： （1.0分）设有一个命令按钮，若要实现按回车键等同按此键，应设置其_ 。A.Cancel属性设为Tru

25、eB.Cancel属性设为FalseC.Default属性设为TrueD.Default属性设为False解答：C   参考答案： C   40. 单选题： （1.0分）下列 _ 不是列表框的方法。A.AddItemB.ClearC.PrintD.RemoveItem解答：C   参考答案： C   41. 单选题： （1.0分）要想在一个文本框中显示多行内容,应在界面设计时对下列_属性进行设置。A.TextB.Fo

26、ntC.MultiLineD.Alignment解答：C   参考答案： C   42. 单选题： （1.0分）以下不能实现在窗体上选择多个控件的方法是_。A.按住Shift键同时单击每个控件B.单击每个控件C.通过鼠标拖一个方框将它们选定D.按住Ctrl键同时单击每个控件解答：B   参考答案： B   43. 单选题： （1.0分）当移动控件，重新设定其尺寸时，_属性会自动改变。A.Click ChangeB.Name Captio

27、nC.Top LeftD.Cancel Default解答：C   参考答案： C   44. 单选题： （1.0分）如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_状态。A.不选中B.不显示C.禁止D.显示解答：D   参考答案： D   45. 单选题： （1.0分）计时器控件每次经历一个固定的时间间隔就会_。A.修改属性B.触发事件C.建立窗体D.显示图片解答：B   参考答案： B&

28、#160;  46. 单选题： （1.0分）终止应用程序的正确方法是_。A.卸载窗体，然后执行End语句B.卸载窗体C.执行Unload Me语句D.执行Stop语句解答：A   参考答案： A   47. 单选题： （1.0分）在菜单过程中使用的事件是利用鼠标_菜单条来实现的。A.拖动B.双击C.单击D.移动解答：C   参考答案： C   48. 单选题： （1.0分）当一个PictureBo

29、x控件的AutoSize属性为True时，在该控件中载入一个比控件的高度与宽度都大的图片时，图片的大小与控件的大小相比是_。A.大B.小C.相等D.未知解答：C   参考答案： C   49. 单选题： （1.0分）若要将水平滚动条的最小值设为0，最大值设为255，应对其_属性进行设置。A.Left 和TopB.Width 和 HeightC.SmallChange 和 LargeChangeD.Min 和 Max解答：D   参考答案： D   50.&

30、#160;单选题： （1.0分）在下列控件中，_控件不能改变大小。A.TextBoxB.LabelC.FrameD.Timer解答：D   参考答案： D   我的试卷 测试得分： 82.0 分 1. 单选题： （2.0分） 1下列哪个符号能作为VB中的合法变量名？ A. x23 B. 8ab C. DIM D. X%B 解答：A   参考答案： A    2. 单选题： （2.0分） 2函数Int(Rnd*10)+90是下列哪个范围内的整数？

31、A. 90,100 B. 10,100 C. 90,99 D. 10,99 解答：C   参考答案： C    3. 单选题： （2.0分） 3数学式子Sin60°写成VB表达式是? A. Sin60 B. Sin(60*3.14/180) C. Sin (60°) D. Sin(60) 解答：B   参考答案： B    4. 单选题： （2.0分） 4要强制显示声明变量，可在窗模块或标准模块的声明段中加入语句? A. Option Base0 B. O

32、ption Explicit C. Option Base1 D. Option Compare 解答：B   参考答案： B    5. 单选题： （2.0分） 5表达式Val(“.1234E3CD”)的值是？ A. 0.1234 B. 0 C. 123.4 D. .1234E3CD 解答：C   参考答案： C    6. 单选题： （2.0分） 6表达式X>X+1是？ A. 算术表达式 B. 非法表达式 C. 字符串表达式 D. 关系表达式 解答：D &

33、#160; 参考答案： D    7. 单选题： （2.0分） 7设A，B，C 表示三角形的三条边，条件“任意两边之和大于第三边”的布尔表达式可以表示为？ A. A+B>C And A+C>B And B+C>A B. Not (A+B<=C Or A+C<=B Or B+C<=A) C. A+B<="" b+c D. A+B>=C Or A+C>=B Or B+C>=A 解答：A   参考答案： A    8. 单

34、选题： （2.0分） 8下面不能在信息框中输出“VB”的是? A. MsgBox B. X=MsgBox( C. MsgBox( D. Call MsgBox 解答：D   参考答案： D    9. 单选题： （2.0分） 9设a=5，b=6，c=7，d=8，执行语句x=IIf(a>b)And(c>d),10,20)后，x的值是? A. 10 B. 20 C. 30 D. 200 解答：B   参考答案： B    10. 单选题： （2.0分） 10语句Pri

35、nt Sgn（-62）+ Abs（-62）+Int（-62）的输出结果是？ A. -36 B. 1 C. -1 D. -72 解答：C   参考答案： C    11. 单选题： （2.0分） 11以下关于局部变量的叙述中错误的是？ A. 在过程中用Dim语句或Static语句声明的变量是局部变量 B. 局部变量的作用域是它所在的过程 C. 在过程中用Static语句声明的变量是静态局部变量 D. 过程执行完毕，该过程中用Dim或Static语句声明的变量即被释放 解答：A   参考答案： D 

36、   12. 单选题： （2.0分） 12下列符号常量的声明中，哪个是不合法的？ A. Const a As single =1.123 B. Const a As Integer =123 C. Const a As Double =Sin(1) D. Const a =OK 解答：C   参考答案： C    13. 单选题： （2.0分） 13Visual Basic 认为下面哪组变量是同一个变量？ A. Al和al B. Sum和Summary C. Aver和Average D. Al和A_l 解答：A&

37、#160;  参考答案： A    14. 单选题： （2.0分） 14执行下面语句：print “5*20” 的结果是( )。 A. "5*20" B. 出现错误信息 C. 5*20 D. 100 解答：C   参考答案： C    15. 单选题： （2.0分） 15下列模块中哪个是一个工程必须具备的( )。 A. 窗体模块 B. 标准模块 C. 类模块 D. 用户自定义模块 解答：A   参考答案： A  &#

38、160; 16. 单选题： （2.0分） 16在一个语句行内写多条语句时，语句之间应该用哪个符号分隔。 A. ， B. ； C. 、 D. ： 解答：D   参考答案： D    17. 单选题： （2.0分） 17不能正确表示条件“两个整型变量A和B之一为0,但不能同时为0”的布尔表达式是？ A. A * B=0 And A<>B B. A=0 Xor B=0 C. A * B=0 And (A=0 Or B=0) D. A * B=0 And A+B<>0 解答：B   参考答

39、案： C    18. 单选题： （2.0分） 18表达式 -5 Mod 3 + 35*2 的值是? A. 0 B. 2 C. -2 D. 4 解答：C   参考答案： C    19. 单选题： （2.0分） 19设x=4，y=8，z=7，表达式x<y And (Not y>z) Or z<x的值是 A. 1 B. -1 C. True D. False 解答：D   参考答案： D    20. 单选题： （2.0分） 20

40、常量的-0.00013579的科学记数法是 A. -1.3579E+4 B. 1.3579E-4 C. -13.579E-5 D. -1.3579E-04 解答：D   参考答案： D    21. 单选题： （2.0分） 21下列哪个是日期型常量 A. "2011-3-29" B. 2011-3-29 C. #2011-3-29# D. 2011-3-29 解答：C   参考答案： C    22. 单选题： （2.0分） 22执行语句s=Len(Mid

41、("VisualBasic",1,6)后，s的值是? A. 6 B. Basic C. Visual D. 11 解答：A   参考答案： A    23. 单选题： （2.0分） 23设a=10,b=5,c=1,执行语句Print a>b>c后，窗体上显示的是? A. True B. False C. 1 D. 出错信息 解答：B   参考答案： B    24. 单选题： （2.0分） 24执行语句Print Format(1236.54,

42、” + # , 0.0%”)的正确结果是 A. 12345,6% B. 123,654.0% C. +123,6.54% D. 123,654 解答：B   参考答案： B    25. 单选题： （2.0分） 25Abs(-8)+Len("ABCD")的值是？ A. 12 B. 14 C. 8ABCD D. -8ABCD 解答：A   参考答案： A    26. 单选题： （2.0分） 26表达式-25.28 Mod 6.99的值是？ A. 1 B.

43、-4 C. 4 D. 出错 解答：B   参考答案： B    27. 单选题： （2.0分） 27Rnd的函数不可能产生的值是？ A. 0 B. 1 C. 0.0005 D. 0.123 解答：B   参考答案： B    28. 单选题： （2.0分） 28将任意一个正的两位数N的个位数与十位数对换的表达式为 A. （N-Int(N/10)*10）*10+Int(n/10) B. N-Int(N)/10*10+Int(N)/10 C. Int(N/10)+(N-Int(N

44、/10) D. (N-Int(N/10)*10+Int(N/10+Int(N/10) 解答：A   参考答案： A    29. 单选题： （2.0分） 29代数式X1-|a|+ln10+Sin(X2+2)/Cos(57o)对应的VB表达式是 A. X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57) B. X1-Abs(A)+Log(10)+Sin(X2+2*)/Cos(57) C. X1-Abs(A)+Log(10)+Sin(X2+2*3.14)/Cos(57*3.14/180) D. X1-Abs(A

45、)+Log(10)+Sin(X2+2*)/Cos(57*3.14/180) 解答：C   参考答案： C    30. 单选题： （2.0分） 30在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有( B )可使文本框Text3中显示46。 A. Text3.Text=Text1.Text & Text2.Text B. Text3.Text=val(Text1.Text) +val( Text2.Text) C. Text3.Text=Text1.Text + Text2.Text D. Text

46、3.Text=val(Text1.Text) & val(Text2.Text) 解答：B   参考答案： B    31. 填空题： （2.0分）  1产生一个100，200范围内的正整数，表达式是 空1解答： Int(200 - 100 + 1) * Rnd + 100) 空1参考答案：Int(Rnd*101)+100、Int(Rnd*101+100)、int(rnd*101)+100、int(rnd*101+100) 32. 填空题： （8.0分）  2语句 Dim x ,y as string ,z

47、 as currencya%=1则x，y, z, a的数据类型分别为 、 、 、 。空1解答： string 空1参考答案：变体型、Variant、variant、万能型 空2解答： string 空2参考答案：字符串型、字符型、string 空3解答： currency 空3参考答案：货币型、currency 空4解答： Integer 空4参考答案：整型、Integer 33. 填空题： （2.0分）  3把数学表达式5X5改写为等价的VB表达式空1解答： -5<=X<=5 空1参考答案：x>=-5 And x<=5、x<=5 And x>=-

48、5、X<=5 And X>=-5、X>=-5 And X<=5 34. 填空题： （2.0分）  4如果希望使用变量 来存放数据1234567.123456,应该将变量声明为类型？空1解答： single 空1参考答案：双精度、Double、double、DOUBLE 35. 填空题： （2.0分）  5设A=7，B=3，C=4，表达式A Mod 3+B3/C5的值是空1解答： 2 空1参考答案：2 36. 填空题： （2.0分）  6.表达式Int (8*Sqr(48)*10(-2)*10+0.5)/10的值是 。空1解答： 0.6 空1

49、参考答案：3 37. 填空题： （2.0分）  7.设变量A=“12345678”，则表达式Val(Left(A,4)+Mid(A,4,2)的值为_空1解答： 123445 空1参考答案：123445 38. 填空题： （2.0分）  8.函数UCase(Mid("visual basic", 8, 8)的值为 _空1解答： BASIC 空1参考答案：BASIC 39. 填空题： （8.0分）  9."12" + "34"的值是_,表达式12 + "34"的值是_,表达式"1

50、2" & "34"的值是_,表达式12 & 34的值 _。 空1解答： 1234 空1参考答案：1234 空2解答： 46 空2参考答案：46 空3解答： 1234 空3参考答案：1234 空4解答： 1234 空4参考答案：1234 40. 填空题： （10.0分）  10.表达式Format(12345.678, "#,#0.00")值为 ，表达式Format(12345.678, "#")值为 ,表达式Format(12345.678, "0.00%")值为 , Forma

51、t("Hello", "<")值为, Format("It's me", ">") 。空1解答： 12 空1参考答案：12,345.68 空2解答： 345.67 空2参考答案：12346 空3解答： 12346 空3参考答案：1234567.80% 空4解答： 1234567.80% 空4参考答案：hello 空5解答： hello 空5参考答案：IT'S ME 我的试卷 测试得分： 82.0 分 1. 单选题： （4.0分） 有如下程序：Private Sub C

52、ommand1_Click()x = InputBox("input value")Select Case xCase Is > 0y = x + 1Case Is = 0y = x + 2Case Elsey = x + 3End SelectPrint x; yEnd Sub假设运行时从键盘上输入-5，输出结果是_。 A. -5 -2 B. -5 -4 C. -5 -3 D. -5 -5 解答：A   参考答案： A    2. 单选题： （4.0分） 下列程序段的执行结果是_。X = 2 Y = 1If

53、 X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0A. True B. False C. -1 D. 1 解答：B   参考答案： B    3. 单选题： （2.0分） 关于语句If x=1 Then y=1，下列说法正确的是_。 A. x=1和y=1均为赋值语句 B. x=1和y=1均为关系表达式 C. x=1为关系表达式，y=1为赋值语句 D. x=1为赋值语句，y=1为关系表达式 解答：C   参考答案： C  

54、  4. 单选题： （2.0分） Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_。 A. Case 20>Is B. Case x<=8 ，10 to 25 C. Case Is>9 And Is<25 D. Case Is>x 解答：D   参考答案： D    5. 单选题： （4.0分） 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：Private Sub Command1_Click()N

55、 = Text1.TextSelect Case NCase 1 To 20X = 10Case 2, 4, 6X = 20Case Is < 10X = 30Case 10X = 40End SelectText2.Text = XEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是_ A. 10 B. 20 C. 30 D. 40 解答：A   参考答案： A    6. 单选题： （4.0分） 运行下面程序，如果输入85，则输出结果是_。Dim a As Integer

56、, i As Integera = InputBox("input a:")If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i=" i A. i=1 B. i = 2 C. i = 3 D. i = 4 解答：C   参考答案： C    7. 单选题： （4.0分） 下面程序段的运行结果为 。Dim s As Integer, i As Inte

57、geri = 1: s = 1Doi = i + sLoop Until s > 10Print i, s A. 11 1 B. 10 1 C. 溢出 D. 11 10 解答：C   参考答案： C    8. 单选题： （4.0分） 执行以下语句后，a的值为_。Dim a As Integera = 1Do a = a + 2Loop Until a = 100A. 99 B. 100 C. 溢出 D. 101 解答：C   参考答案： C    9. 单选题： （4

58、.0分） 执行以下语句后，a的值为_。Dim a As Integera = 1Do a = a + 2Loop While a = 100 A. 1 B. 3 C. 溢出 D. 101 解答：B   参考答案： B    10. 单选题： （4.0分） 在下面的程序段中，循环体将执行_次。For v=20 To 10 Step -2print vNext vA. 5 B. 6 C. 10 D. 0 解答：B   参考答案： B    11. 单选题： （4.0分） 下面程序

59、运行后，单击command1后屏幕显示是_。Private Sub command1_click()For i = 1 To 4If i > 3 Then Exit ForNext iFor j = 1 To 6i = i + jNext jPrint i, jEnd SubA. 26 B. 257 C. 25 D. 266 解答：B   参考答案： B    12. 填空题： （6.0分）  下面程序的功能是：输入X的值，按以下公式求Y的值。Y=y=100-X -100X<10 y=100+X 10X100y=400 100<X200Private Sub command1_click()x = Val(text1.Text)Select Case xCase （1） Print "x<-100 or x>200"Case （2） y = 100 - xCase （3） y = 100 + xCase Elsey = 400End Selecttext2.Text = yEnd Sub空1解答： Is<-100 空