南京工业大学VB题库5

题号：7486一个应用程序_____窗体。

A、可包括多个B、应该有两个C、只许有一个D、可以没有答案：A题号：7476所谓_____就是使某个对象进入活动状态（又称激活）的一种操作或动作。

A、对象B、属性C、方法D、事件答案：D题号：7481以下说法错误的是_____。

A、通常情况下，集成环境中只显示标准工具栏，其他工具栏可通过视图菜单中的“工具栏”命令打开B、SDI是指多文档界面，MDI是指单文档界面。

在默认情况下，Visual Basic集成开发环境是单文档界面方式，可在“工具”菜单下的选项命令中的“高级”选项卡下进行MDI与SDI的互换C、单击标准工具栏中的属性按钮可以打开属性窗口，相当于执行“视图”菜单下的“属性窗口”命令D、当一个程序包括两个以上的工程时，这些工程构成一个工程组，其扩展名为.vbg答案：B题号：8052为了使标签能够显示所指定的文本，应设置_____属性。

A、TextB、SelTextC、NameD、Caption答案：D题号：8000在设计列表框时，若实现输入多行文字的目的，应使用_____键实现文本的换行。

A、Alt+EnterB、EnterC、Ctrl+EnterD、Ctrl+Shift+Enter答案：C题号：8051设置一个文本框的状态为失效，应利用_____属性。

A、VisibleB、DefaultC、CancelD、Enabled答案：D将命令按钮的_____属性设置为True，当用户按下【Esc】键时可以激发对应命令按钮的Click 事件。

A、DefaultB、EnableC、NameD、Cancel答案：D题号：8045窗体Form1的名称属性为frm，它的Load事件过程名为_____。

A、Me_LoadB、Frm_LoadC、Form_LoadD、Form1_Load答案：C题号：8493语句Print “Int(-13.2)=”;Int(-13.2)的输出结果为__________.A、Int(-13.2)=13.2B、Int(-13.2)=-14C、Int(-13.2)=-13.2D、Int(-13.2)=-13答案：B题号：8519一句语句要在一行继续写，用____________符号作为续行符。

A、…B、+C、_D、&答案：C题号：8509表达式（7\3+1）*(18\5-1)的值是___________.A、8.67B、7.8C、6.67D、6答案：D题号：8535i被j整除的逻辑表达式是________________。

A、i/j = 0B、i<>0C、i\j = 0D、i mod j = 0答案：D题号：8562假定变量Logic类型是Boolean，下面赋值语句________是正确的。

A、Logic = …True‟B、Logic = # True #C、Logic = .True.D、Logic = 3<4答案：D题号：8533下列字符串中________________是合法变量。

A、x \ y ,x>yB、exp,123,x * yC、char_1,student,No,a1234D、end ,1bcx答案：C题号：8492下列叙述不正确的是___________ .A、代码中加入注释语句的目的的提高程序的可读性B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译C、注释语句可以放在代码中的任何位置D、注释语句不能放在续行符的后面答案：C题号：8495下面程序段的功能是 A=10.5 B=INT(A+0.5) Debug.Print BA、求平均值B、舍去一实数的小数部分C、将一实数四舍五入取整数D、求绝对值答案：C题号：8550以下语句的输出结果是____________。

Print Format(12345.6,"000,000.00")A、12345.6B、12,345.6C、012,345.60D、12,345.60答案：C题号：8547下面语句的输出结果是____________。

x=10:y=3Print (x*y)\8A、5B、6C、3D、4答案：C题号：8548设M=3，N=5，P=4.5，Q=2.5，表达式(M*N+2)/(P-Q)的计算结果为____________。

A、8.5B、8.0C、8D、9答案：A题号：8504下列符号常量的声明中，______________是不合法的。

A、Const a as integer="12"B、Const a as double=sin(1)C、Const a =”OK”D、Const a as single=1.1答案：B题号：8313给出下面的程序Private Sub Command1_Click( )Dim Check ,CounterCheck = True: Counter = 0DoCounter = Counter + 1If Counter = 10 Then Check = False: Exit DoLoop Until Check = FalseMsgBox CounterEnd Sub程序最后弹出的消息对话框的内容是_____ 。

A、FalseB、TrueC、20D、10答案：D题号：8342以下程序的输出结果是_____。

Dim i As Integer,a As IntegerDo While i<20Do While TrueIf i Mod 10=0 ThenExit DoElsei=i-1End IfLoopi=i+11:a=a+iLoopPrint aA、21B、33C、32D、11答案：C题号：8340下面语句运行后的输出结果是_____。

Private Sub Command1_Click()x=0Do While x<10x=x+1x=x*xLoopPrint xEnd SubA、30B、12C、6D、25答案：D题号：8311存在如下程序：Private Sub Command1_Click( )a=Val(InputBox("请输入"))b=Val(InputBox("请输入"))x=a+bIf a>b Thenx=a-bendifPrint xEnd Sub运行后，从InputBox对话框中连续输入3和4，输出结果为_____。

A、3B、34C、0D、7答案：D题号：8312当Form1_Click事件发生时，程序的输出结果是_____。

Private Sub Form_Click()Dim M As Integer,k As Integer,t As IntegerM=5 : k=7Select Case Mcase 1 To 10t=M: M=k: k=tCase ElseM=k Mod 3End SelectPrint M, k, tEnd SubA、7 5 5B、7 5 7C、5 7 5D、5 5 7答案：A题号：8328下列程序运行后的输出结果是_____。

Private Sub Command1_Click()For i=1 TO 3For j=0 TO i-1k=k+1next jnext iprint kEnd SubA、3B、5C、4D、6答案：D题号：8316假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候窗体上将输出_____个字母"a"。

Private Sub Timer1_Timer()For i = 1 To 10Print "a"Next iEnd SubA、10次B、10000次C、以上都不对D、1 000次答案：A题号：8370执行以下语句后，a的值为_____。

Dim a As Integera=1Do Until a=100LoopA、溢出B、100C、99D、101答案：A题号：8367执行下面的程序，单击窗体后在窗体上显示的结果是_____。

Private Sub Command1_Click( )Dim Str1 As String, Str2 As StringDim Str3 As String, I As IntegerStr1= "e"For i = 1 To 2str2 = UCase(Str1)Str1 = Str2 & Str1Str3 = Str3 &Str1Str1 = Chr(Asc(Str1)+1)Next IPrint str3End SubA、EEEEB、eeFFC、EeFFD、eEfF答案：C题号：8333下面程序段，显示的结果是_____。

Dim xx=Int(Rnd)+5select Case xCase 5print "优秀"Case 4print "良好"Case 3print "通过"Case Elseprint "不通过"End SelectA、通过B、不通过C、良好D、优秀答案：D以下程序段运行后，消息框的输出结果是a=sqr(5)b=sqr(3)c=a>bMsgbox c+2A、2B、-1C、1D、出错答案：C题号：8326下列程序的输出结果是_____。

Dim y As Integery=10Do While y<>0y=y-1LoopPrint "y=";yA、y=-1B、y=0C、y=随机值D、y=1答案：B题号：8339下面语句错误的是_____。

A、If a=1 Thenc=2ElseIf a=2 Thenc=3End IfB、If a=1 And b=2 Thenc=3End IfC、If a=1 Thenc=2ElseIf a=2 Thenc=3End IfD、If (a=1,2,3 ) Then c=2答案：D题号：8305下列是一个计算1到100的奇数的和的程序，为补充完该程序，填空应为____。

Private Sub Command1_Click ( )Dim s As Long, x As Integers=0For x = _____ Step-2s=s+xNext xPrint sEnd SubA、1 To 100B、100 To 1C、99 To 1D、1 To 99答案：C题号：8352在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click()Dim k As IntegerDim entry As String, item As Stringentry = "EDCBA"For k = Len(entry) To 1 Step -1item = LCase(Mid(entry, k, 1)) & kList1.AddItem itemNext kEnd Sub运行此程序，单击窗体,列表框第4行为_____。