南京工业大学VB考试[1]

1、vbzj523 满分：60分 姓名：_  一、单项选择题(本题共计40分) C 1、_在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。   (  ) A、方法 B、属性 C、事件 D、工程 2、执行语句 X2Print Format(1234.567,“#,#0.00”) 后，输出结果是_。   (  ) A、1234.57 B、1,234.

2、57 C、1，234.567 D、1,234.56 X3、想要设置窗体状态为不显示控制菜单，应设置下列_属性。   (  ) A、Style B、Picture C、ControlBox D、Caption D 4、用于字符串连接的运算符是_。   (  ) A、& B、+ C、And D、A、B选项皆可 D 5、VisualBasic是一种面向_的程序设计语

3、言。   (  ) A、过程 B、用户 C、方法 D、对象 B6、执行语句"Print format(5459.478,"#,#0.00")"，正确的输出结果是_。   (  ) A、5459.48 B、5,459.48 C、5,459.478 D、5,459.47 7、执行下列程序，输出结果为_。 Private Sub

4、60;Command1_Click( ) Dim b As Single B=2 / 3 Print bEnd Sub   (  ) A、0.6666666666667 B、1 C、0 D、0.6666667 B 8、VisualBasic中的标准模块文件的扩展名是_。   (  ) A、.reg B、.frm

5、0;C、.bas D、.vbp B 9、下面程序的内层循环次数是_。 For i=1 TO 3  For j=1 TO i  For k=j TO 3  .  Next k  Next j Next i   (  ) A、3 B、14 C、9 D、21 10、以下有关对象属性的说法中错误的

6、是_。   (  ) A、所有的对象都具有Name(名称)属性 B、只能在执行时设置或改变的属性为执行时属性 C、对象的某些属性只能在设计时设定，不能使用代码改变 D、Enabled属性值设为False的控件对象在窗体上将不可见 C 11、下列4个表达式中，不能对Single类型变量x(正数)的第三位小数正确地进行四舍五入的是   (  ) A、Format(x,"#.00") B、Int(100*(x+0

7、.005)/100 C、CInt(100*(x+0.005)/100 D、Fix(100*(x+0.005)/100 12、以下语句的输出结果是_。 print Format s(3678.234,"000，000，000")   (  ) A、000,003.678  B、003,678.23  C、003,678,234  D、000,003,678 13、当用户单击命令按钮时，_属性可以使得命令按钮对激发事件无

8、效。   (  ) A、Name B、Enable C、Default D、Cancel14、语句x=x+1的正确含义是_.   (  ) A、变量X的值与X+1的值相等  B、将变量X的值存在X+1中去 C、将变量X的值加1后赋给变量X D、变量X的值为1 X15、要想改变窗体边框线型，可使用的属性是_。   (  ) A、FonStyle

9、60;B、BorderStyle C、BackStyle D、Border D 16、在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click( ) Dim y As Integer y = 0 Do While y<7  y=y+3 Loop MsgBox y End Sub 程序运行后，消息对话框中显示_

10、。   (  ) A、6 B、7 C、8 D、9 17、如果单击一个当前没有被选中的复选框，其他已被选中的复选框会处于_ 状态。   (  ) A、不选中 B、不显示 C、禁止 D、选中 C 18、以下_程序段可以实施X，Y变量值的变换.   (  ) A、Y=X:X=Y B、Z=X:Y=Z:X=Y C、Z=

11、X:X=Y:Y=Z D、Z=X:W=Y:Y=Z:X=Y 19、在窗体上画一个命令按钮名为Command1，然后编写如下事件过程: Option Base 0 Private Sub Command1_Click()  Dim city As Variant  city = Array("Beijing", "Shanghai", "NewYork", &qu

12、ot;London")  Print city(4) End Sub 程序运行后，屏幕显示_   (  ) A、Beijing Shanghai NewYork London B、London C、出错 D、空白 20、下述语句段运行时的显示结果是_。 CLS x=2.34+8 print Len(x)   (  )&

13、#160;A、5  B、10  C、11  D、非法使用，无输出 21、当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_。   (  ) A、文本框中没有内容 B、文本框的MultiLine属性为False C、文本框的MultiLine属性为True D、文本框的Locked属性为True 22、表达式（73+1）*(185-1)的值是_.   (  ) A、8.67&#

14、160;B、7.8 C、6 D、6.67 23、下面_是合法的单精度型变量。   (  ) A、num! B、sum% C、xinte$ D、mm 24、假设如下的Sub过程： Sub CalCul(a As Integer, b As Integer)  a=a/b  b=a*b End Sub 在窗体上画一个命令按钮，然后编写如下事件过程

15、60;Private Sub Command1_Click() Dim x As Single, y as Single x=8 y=5 CalCul x,y Print x,y End Sub 程序运行后，单击命令按钮，输出结果为   (  ) A、8  5  B、1.6  8.0  C、2.0&

16、#160; 8.0  D、2  825、下列语句中的语句可以用来正确地声明一个动态数组。   (  ) A、Private A(n) As Integer  B、Dim A() As Integer  C、Dim A(,) As Integer D、Dim A(1 to n) 26、只有当一个对象的_和_属性为True时，它才能获得焦点。

17、   (  ) A、Enabled; Visible B、Visible; Caption C、Visible; Name D、Enabled; Caption 27、用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是_。   (  ) A、命令按钮的所有Caption属性都是Command1 B、在代码中访问命令按钮只需使用名称Command1 

18、;C、命令按钮的大小都相同 D、命令按钮共享相同的事件过程 28、结构化程序设计方法的核心是规定了三种基本结构：_结构、分支结构、循环结构。   (  ) A、条件 B、顺序 C、当型 D、逻辑 29、在下列说法中，正确的是_。   (  ) A、通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上 B、在列表框中不能进行多项选择 C、在列表框中能够将项目按字母顺序从大到小排列 D

19、、框架也有Click和DblClick事件 30、下面_是不合法的整常数。   (  ) A、100  B、&O100  C、&H100  D、%100 31、VB也提供了结构化程序设计的三种基本结构，三种基本结构是_。   (  ) A、递归结构、选择结构、循环结构 B、选择结构、过程结构、顺序结构 C、过程结构、输入、输出结构、转向结构 D、选择结构、循环结构、顺序结构

20、0;32、下列语句执行后的输出结果是_。 (一个方格表示一个空格) Wage = 26 Print "工资" Print Wage   (  ) A、工资26  B、工资26  C、“工资”26  D、“工资”26 33、任何控件都具有_属性。   (  ) A、Text B、Caption C、Name D

21、、ForeColor 34、表达式(-1)*Sgn(-100+Int(Rnd*100)的值是_。   (  ) A、随机数 B、0 C、1 D、-1 35、执行以下语句后，a的值为_。 Dim a As Integer a=1 Do Until a=100 a=a+2 Loop   (  ) A、99 B、100

22、60;C、101 D、溢出 36、<span lang="EN-US">Visual Basic</span><span>是一种面向<u><span lang="EN-US"><span>&#160;&#160;&#160;&#160;&#160;</span><span>&#160;&#160;&#160;&#160; <

23、/span></span></u>的程序设计语言。</span>   (  ) A、<span>过程</span> B、<span>用户</span> C、<span>方法</span> D、<span>对象</span> 37、VB也提供了结构化程序设计的三种基本结构，这三种基本结构是_。   (  )

24、60;A、递归结构、选择结构、循环结构 B、选择结构、过程结构、顺序结构 C、过程结构、输入输出结构、转向结构 D、选择结构、循环结构、顺序结构 38、所谓_就是使某个对象进入活动状态（又称激活）的一种操作或动作。   (  ) A、事件 B、属性 C、方法 D、对象 39、要从自定义对话框Form2中退出，可以在该对话框的&ldquo;退出&rdquo;按钮的Click事件过程中使用的语句是_。   (

25、60; ) A、Unload Form2 B、Hide Form2 C、Unload.Form2 D、Form2.Unload 40、下列语句正确的是_。   (  ) A、If K<3*N And K>N Then N=K3 B、If K<3*N And K>N Then N=K3 C、If K<

26、3*N ：K>N Then N=K3 D、If K<3*N And K>N Then N=K*3 二、填空题(本题共计20分) 1、执行下面的程序，单击窗体后在窗体上显示的第一行结果是 _，第三行结果是_。 Private Sub Command1_Click( ) s1="B" For i = 1 To 3  s2=L

27、Case(s1) s1=s1 & s2 s=s & s1 Print s s1=Chr(Asc(s1)+i) Next i End Sub 2、a=100 Do s=s+a a=a+1 Loop while a>120 Print a 3、要把在Label控件中显示的文字颜色设置为红色，应设置Label控件的 _(1)_属性。 

28、;4、已知下列程序运行结果是ABCD，请将程序补充完整。 Private Sub Command1_Click( ) a="" For n=65 To 68  a=a+_ Next n Print a End Sub 5、某人编写如下函数来判断a是否为素数，若是，则函数返回True；否则返回False。 Function prime(a As Integer)

29、0;As Boolean Dim k As Integer, isprime As Boolean If a < 2 Then isprime = False Else isprime = True k = 2 Do While k < a / 2 And ispri

30、me If a Mod k = 0 Then isprime = False Else k = k + 1 End If Loop End If prime = isprime End Function 在测试时发现有1个非素数也被判断为素数，这个被错判的数是_ 6、找出110000之间的同构数。所谓同构数，是指此数的

31、平方数的最后几位与该数相等。 例如，25的平方为625，25是同构数。完善下列程序。程序代码如下： Private Sub Command1_Click( ) Dim i As Integer, y As Long For x = 1 To 1000 y = x * x If _(1)_ Then Print x

32、60;End If Next x End Sub 7、有下列程序： Private Sub Command1_Click( ) x$ = "Apply" y$ = "Action" z$ = "Study" z$ = Left$(x$,4)+Mid(y,4,1)+LCase$(z)+""+z$

33、60;Print z$ End Sub 运行后窗体上显示的是_ 。 8、下列程序的功能是输出如下数列的前20项，按每行5个数的形式输出。 1，1，2，3，5，8，13,. Dim a As Integer,b As Integer Dim i As Integer a=1:b=1:i=3 Print a,bDo While(i<=20) c=a+b t=b

34、60;b=a+b _(1)_ Print c, If_(2)_ Then Print End If _(3)_Loop 9、执行下面的程序，在窗体上显示的输出结果的第一行是_(1)_，第二行是_(2)_。 Option Explicit Private Sub Form_Click() Dim s As String, i As Integer, flag 

35、As Boolean s = "THIS IS A BOOK" s = LCase(s) Print s flag = True For i = 1 To Len(s) If Mid(s, i, 1) = " " Then flag = T

36、rue ElseIf flag Then s = Left(s, i - 1) & UCase(Mid(s, i, 1) & Right(s, Len(s) - i) flag = False End If Next i Print s End Sub 10、有如下程序： 

37、Private Sub Command1_Click( ) a=Val(InputBox("请输入") b=Val(InputBox("请输入") x=a+b If a>b Then x = a-b Text1.Text=x End Sub 运行后，从InputBox对话框中连续输入3和4，文本框中显示的是 _ ；若连续输入4和3，文本框中又显示的是_。 11、

38、下列程序的运行结果为_。 Private Sub Command1_Click( ) x = 1 For k = 1 To 3 If k = 1 Then a = x * x If k<= 2 Then a = x * x+1 If k >= 3 Then a = x * x+2 Print a; Next k End Sub 12、表示"A+B+C大于等于255