南京工业大学VB考试题库3

VisualBasic是一种面向__D___的程序设计语言。
A、过程
B、用户
C、工程
D、对象
VisualBasic是用于开发__B___环境下的应用程序的工具。
A、UNIX
B、Windows
C、DOS
D、DOS和Windows
在VB集成环境创建VB应用程序时,除了工具箱窗口、窗体中的窗口、属性窗口外,必不可少的
窗口是______B______。

A、立即窗口
B、代码窗口
C、窗体布局窗口
D、监视窗口
只有当一个对象的__B___和_____属性为True时,它才能获得焦点。
A、Enabled; Caption
B、Enabled; Visible
C、Visible; Name
D、Visible; Caption
如果单击一个当前没有被选中的复选框,其他已被选中的复选框会处于__B___状态。
A、不显示
B、选中
C、禁止
D、不选中
要使某控件在运行时不可显示,应对___B__属性进行设置。
A、BackColor
B、Visible
C、Caption
D、Enabled
窗体Form1的名称属性是frm,它的Load事件过程名是__D___。
A、frm_Load
B、Me_CmdOK
C、Form-Load
D、Form_Load
使用__B___方法,可取得列表框中的项数。
A、RemoveItem
B、ListCount
C、AddItem
D、Clear
对于一个含有计时器控件的窗体,每经过一段由___A__属性指定的时间间隔,就会产生一个Timer事件。
A、Interval
B、Enabled
C、Name
D、Caption
Picture控件AutoSize属性设置为__D___,在运行时当往图片框加载或复制图片时,VB会自动扩展该控件
到恰好显示整个图片为止。

A、False
B、3
C、无
D、True
下列不正确的变量名是___A_____。
A、Arry@
B、Text
C、Command
D、Form
一句语句要在一行继续写,用_____C_______符号作为续行符。
A、…
B、+
C、_
D、&
以下各项中,______B______不是一个合法的字符串。
A、"等级考试"
B、#Basic#
C、""
D、"Visual"
己知A="12345678",则表达式Val(Left(A,4)+Mid(A,4,2))的值为_______B_____。

A、49
B、123445
C、1279
D、123456
下列没有类型说明符的变量是____B_____。
A、货币型
B、日期型
C、字符串型
D、长整型
下面_______B_____是合法的单精度型变量。
A、sum%
B、num!
C、xinte$
D、mm
在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型,下列赋值语句在执行
时会出错的是___A_____。
A、Bl=#True#
B、Inta=4.6
C、D=#10/05/01#
D、St=5 & 123.5
如果将布尔常量False赋值给一个整形变量,则整型变量的值为_______A_____。
A、0
B、-1
C、False
D、True
表达式16/4-2^5*8/4 MOD 5/2的值为_____D_______。
A、2
B、14
C、20
D、4
以下说法不正确的是_____C_______。
A、Val( )函数用来把自变量字符串转换为数值
B、Log( )函数产生一个0-1之间的单精度浮点数
C、Chr$( )函数的作用是把自变量表达式的值转换为相应的ASCII码
D、Rnd( )函数产生一个0-1之间的单精度浮点数
以下语句的输

出结果是____C________。
print Format(3678.234,"000,000,000")
A、003,678.23
B、000,003.678
C、000,003,678
D、003,678,234
在文本框Text1中输入数字12,Text2中输入数字34,执行以下语句,只有__C___。可使文本框Text3中
显示46。
A、Text3. Text=Val(Text1. Text) & Val(Text2.Text)
B、Text3. Text=Text1. Text & Text2. Text
C、Text3. Text=Val(Text1. Text)+Val(Text2.Text)
D、Text3. Text=Text1. Text+Text2.Text
在窗体(Name属性为Fomal)上画两个文本框(Name属性分别为Fext1和Text2)和一个命令按钮
(Name属性为Command1),程序如下。执行后结果为__C___。
Private Sub Command1_Click()
a=Text1.Text+Text2.Text
Print a
End Sub
Private Sub Form_load()
Text1.Text="123"
Text2.Text="321"
End Sub
A、132231
B、444
C、123321
D、321123
有如下程序:
Private Sub Command1_Click( )
score=65
select Case score
Case Is<60
a$="F"
Case 60 To 69
a$="D"
Case 70 To 79
a$="C"
Case 80 To 89
a$="B"
Case else
a$="A"
End Select
MsgBox a$
End Sub
程序运行后,消息对话框中显示的内容为__A___。
A、D
B、B
C、A
D、C
执行以下程序段,在窗体上显示的结果是__A___。
Private Sub Form_Click()
Dim S As String, i As Integer
S = "ab"
For i = Len(S) To 1 Step -1
Print Chr( Asc ( Mid ( S , i , 1 ) ) + i )
Next I
End Sub
A、db
B、cb
C、cc

D、fd
下面程序的运行结果是___D__。
Private Sub Command1 Click ( )
x=1: y=1
For i=1 TO 3
x=x+y: y=y+x
Next i
Print x;y
End Sub
A、34 35
B、5 8
C、6 6
D、13 21
以下___B__程序段可以实施X,Y变量值的变换.

A、Y=X:X=Y
B、Z=X:X=Y:Y=Z
C、Z=X:Y=Z:X=Y
D、Z=X:W=Y:Y=Z:X=Y
在窗体Form1上,有一个图片控件Picture1和命令按钮控件Command1,在窗体的Command1_Click事件中
有如下代码:
Private Sub Command1_Click( )
Dim x As Integer
Dim s1 As String,s2 As String
s1="ABCDE"
For x=1 To Len(s1)
s2=Lcase(Mid(s1,x,1)) & x
Picture1.Print s2
Next x
End Sub
运行此程序后在窗体的第4行为__C___。
A、d2
B、b4
C、d4
D、b2
程序代码如下,当单击窗体上Command1控件时,窗体上显示的结果是____B_____。
Option Base 1
Private Sub Command1_Click( )
Dim i As Integer
Dim x(3,3)As Integer
For i = 1 To 3
For j = 1 To 3
x(i,j) = (i-1) * 3+j
Next j
Next i
For i = 1 To 3
Print x(i,4-i)
Next i
End Sub
A、1 4 7
B、3 5 7
C、3 6 9
D、1 5 9
阅读下列程序,其输出的结果是____D____。
Private Sub Command1_Click()
Dim a(1 To 3) As Integer
For i=1 To 3
a(i)=i

Next i
Call sub1(a)
For i=2 To 3
Print a(i)
Next i
End Sub
Public Sub sub1(a() As Integer)
For i=1 To 3
a(i)=i*I
Next I
End
A、1 2
B、1 4
C、2 3
D、4 9
当发生Command1_Clik事件后,下列程序的输出结果是_____C_______。
Dim i As Integer
Dim a(10) As Integer

For i=9 To 0 Step -1
a(i)=10+I
Next I
Print a(2);a(5);a(8)
A、7 4 1
B、8 5 2
C、12 15 18
D、3 6 9
下列程序的输出结果是______B______。
Dim i As Integer, k As Integer
Dim a(10) As Integer, p(3) As Integer
k = 5
For i = 0 To 9
a(i) = i
Next i
For i = 0 To 2
p(i) = a(i * (i + 1))
Next i
For i = 0 To 2
k = k + p(i) * 2
Next I
Print k
A、23
B、21
C、22
D、17
某过程的说明语句中,正确的数组说明语句是_____B_______。Const N as integer=4 Dim L as integer ①.Dim X (L) As Integer ②.Dim A(K) As Integer
Const K As Integer=3 ③.Dim B(N) As Integer ④.Dim Y(2000 To 2008) As Integer

A、②③
B、③④
C、①②④
D、①③④
对窗体编写如下代码:
Option Base 1
Private Sub Command1_Click( )
a=Array(237,126,87,48,498)
m1=a(1)
m2=1
For i=2 To 5
If a(i)>m1 Then
m1=a(i)
m2=i
End If
Next i
Print m1;m2
End Sub
程序运行后,按回车键,输出结果为_____C____。
A、498 4
B、48 4
C、498 5
D、237 1
在窗体模块的通用声明处有如下语句,会产生错误的语句是__B_。
①Const a as Integer=25
②Public St As String * 8
③ReDim B(3) As Integer
④Dim Const X As Integer=10
A、①③
B、②③④
C、①②③
D、①②
在Cmdl_C1ick事件中有效的地址传递的调用语句是___B_____。
Public Sub Fl(n%)
n =3*n+4
End Sub
Private Sub Cmdl_Click()
Dim n%, m%
n=3 :m=4
…'调用F1语句
End Sub
A、F1 m+5
B、F1 m
C、F1 n+m
D、F1 5
在窗体模块的通用声明处有如下语句,会产生错误的语句是____A________。
①Const A As Integer=25 ②Public St As String * 8 ③ReDim B(3) As Integer ④Dim Const X As Integer=10
A、②③④
B、①③
C、①②
D、①②③
在参数传递过程中,使用关键字______D__________来修饰参数,可以使之按值传递。

A、Value
B、ByRef
C、Reference
D、ByVal
Sub过程和Function过程最根本的区别是________A________。
A、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
B、Function过程可以有参数,Sub过程不可以
C、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
D、两种过程参数的传递方式不同
调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时,以下不是按值传递的语句是_____D_______。

A、Convert (X)
B、Call Convert(X*1)
C、Call Convert ((X))
D、Convert X
设有下列程序代码,在单击命令按钮时的输出结果是___A_____。
Sub SS (ByVal x, ByRef y, z)
x=x+1
y=y+1
z=z+1
End Sub
Private Sub Command1_Click ( )
A=1: B=2 :C=3
Call SS (A,B,C)
Print A,B,C
End Sub
A、1 3 4
B、2 2 4
C、1 3 3
D、1 2 3
如下程序,运行的结果是______A______。
Public Function pi!(x!, n%)
If n = 0 Then
pi = 1
ElseIf n Mod 2 = 1 Then
pi = x * pi(x, n \ 2)
Else
pi = pi(x, n \ 2) \ x
End If
End Function
Privat

e Sub Command1_Click()
Print pi(3, 7)
End Sub

A、27
B、14
C、18
D、7
要想在过程调用后返回两个结果,下面的过程定义语句合法的是___D____。
A、Sub Procl ( ByVal n , ByVal m)
B、Sub Procl ( ByVal n , m)
C、Sub Procl ( n , ByVal m)
D、Sub Procl ( n , m)
Sub过程和Function过程最根本的区别是_______C_________。
A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以
B、Function过程可以有参数,Sub过程不可以
C、Sub过程的过程名不能返回值,而Function过程能通过过程名返回值
D、两种过程参数的传递方式不同
在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框,然后编写如下程序:
Private Sub Command1_Click()
Dim x, y, z As Integer
x = 5: y = 7: z = 0
Text1.Text = ""
Call p1(x, y, z)
Text1.Text = Str(z)
End Sub
Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)
c = a + b
End Sub
程序运行后,如果单击命令按钮,则在文本框中显示的内容是__A______。
A、12
B、没有显示
C、Str(z)
D、0
使用Public Const语句声明一个全局的符号常量时,该语句应放在______A______。

A、标准模块的通用声明段
B、过程中
C、窗体模块的通用声明段
D、窗体模块或标准模块的通用声明段
若整型实参x、y的值分别为48、28,则引用以下function过程的返回值是___D_____。
Private Function f(ByVal m%, ByVal n%) As Integer
Do
r = m Mod n
m = n
n = r
Loop While r <> 0
f = m
End Function
A、都不是
B、2
C、1
D、4
KILL语句在VB语言中的功能是______A______。
A、删除磁盘上的文件
B、清屏幕
C、清病毒
D、清内存
改变目录列表框(DirListBox)控制的Path属性的途径可以有____C____。 ①单击目录列表框某一项。 ②程序代码中改变目录列表框的Path属性值。 ③双击目录列表框某一项。 ④在程序中用ChDir命令设置当前工作目录。
A、①②③④
B、②③④
C、①②
D、②③
顺序访问适用于普通的文本文件,文件中的数据是以_____C_______方式储存的。

A、数组
B、二进制数
C、ASCII码
D、Boolean
[题目] 求100以内的所有的完数。所谓完数是指所有因子(含1,不含本身)之和等于它本身的数。例如:6=1+2+3
【编程要求】
1、单击"计算"按钮,则将计算结果显示在列表框List1中;单击"清除"按钮,则清除列表框中的内容;单击"结束"按钮,程序停止运行。
2、界面应与给出的参考界面相似,不得增加或减少控件。


【参考代码】
sum = 0
For x = 2 To 100
For i = 1 To x - 1
If x Mod i = 0 Then sum = sum + i
Next i
If sum = x Then List1.AddItem CStr(x)
sum = 0
Next x
[题目] 随机生成一个由两位随机整数构成的5行5列的矩阵,求

该矩阵中所有不靠边元素之和。
[编程要求]
程序中有一个过程sum(),该过程的功能是求一个数组的不靠边元素之和。
完成此函数的功能


【参考代码】
Dim i As Integer, j As Integer
For i = LBound(b) + 1 To UBound(b) - 1
For j = LBound(b) + 1 To UBound(b) - 1
sum = sum + b(i, j)
Next j
Next i


相关文档
最新文档