A.语句Val(Text1.Text)=X的含义是将文本框Text1中的内容转换为数值型后赋值给变量X B.语句Text1.Text=X的含义是将变量X的值显示于文本框Text1中
C.语句X=Val(Text1.Text)的含义是将文本框Text1中的内容转换为字符型后赋值给变量X D.语句Text1.Text=X的含义是将文本框Text1中的内容转换为数值型后赋值给变量X 9下面的赋值语句正确的是(D ) A.PI*R*R=Y B.X=3Y C.X+Y=30 D.Y=X+30
10为了给X、Y、Z三个变量赋值1，下面正确的赋值语句是( C ) A.X,Y,Z=1 B.X=Y=Z=1 C.X=1:Y=1:Z=1 D.X=1,Y=1,Z=1
11以下( A )程序段可以实现X、Y变量值的交换。 A.Z = X: X = Y: Y = Z
B.Z = X: W = Y: Y = Z: X = Y C.Y = X: X = Y
D.Z = X: Y = Z: X = Y
12关于语句If x = 1 Then y = 1，下列说法正确的是(A )。 A.x = 1 为关系表达式， y = 1为赋值语句 B.x = 1 和 y = 1均为赋值语句
C.x = 1 为赋值语句， y = 1为关系表达式 D.x = 1 和 y = 1均为关系表达式
13如果X的值小于或等于Y的平方，则打印“OK”，表示这个功能的单行If语句是( A )。 A.If x <= y ^ 2 Then Print \B.If x <= y ^ 2 Then \C.If x <= y ^ 2 Print \D.If x <= y2 Then Print \
14下列循环结构中，循环体x = x + k的执行次数为( B )。 x = 0
For k = 1 To 10 Step 2 x = x + k Next k print k；x A.0 B.5 C.10 D.1
15循环结构For I = 1 to 15 step 2 的执行次数是(D )。 A.6 B.9 C.7 D.8
16以下循环语句中在任何情况下都至少执行一次循环体的是(A )。 A.Do 循环体 Loop Until <条件>
B.Do While <条件> 循环体 Loop
C.While <条件> 循环体 Wend
D.Do Until <条件> 循环体 Loop
17下列（A）语句可以为动态数组定义实际元素个数 A.ReDim B.Dim C.Public D.Static
18关于ReDim语句，以下说法错误的是（ D ）。 A.ReDim语句可保留动态数组中原有的内容
B.在ReDim语句中，可使用变量说明动态数组的大小 C.ReDim语句可以改变数组的维数
D.ReDim语句既可以在过程中使用，也可以在模块的通用声明处使用
19在窗体的通用声明处有语句“Dim a() As Single”，以下在某事件过程中重定义此数组的一组正确语句是（C ）。 A.ReDim a(3)
ReDim a(3, 3) as Integer B.ReDim a(3, 3)
ReDim a(4, 4) As Integer C.ReDim a(3, 3)
ReDim Preserve a(3, 4) D.ReDim a(3, 3)
ReDim Preserve a(4, 4)
20以上语句所定义的数组的第二维下标是（C） A.1 到 3 B.0 到 3 C.-2 到1 D.3 到-2
21以下（C）是合法的数组元素表示方法。 A.M6 B.M{9} C.M(M(5)） D.M[M+1]
22设有数组声明语句： Option Base 1
Dim b(-1 To 1, 2 ) As Integer 则数组b中共有（ C）个元素。 A.2 B.4 C.6 D.9
23设有数组声明语句： Option Base 1
Dim A(-1 to 2) As Integer 则数组A中共有（ B ）个元素。 A.2 B.4
C.不能确定 D.3
24设有数组声明语句： Option Base 1
Dim A(-1 To 2) As Long
则，函数UBound(A)的值为（C） A.0 B.1 C.2 D.-1
25调用由语句Private Sub convert(y As Integer)定义的Sub过程时，以下不是按值传递的语句是（ B）。 A.Call convert((x)) B.convert x
C.Call convert(x * 1) D.convert (x)
26在过程调用中，参数的传递可以分为（A） A.按值传递和按地址传递
B.按地址传递、按参数传递和按类型传递 C.按值传递和按参数传递 D.按位置传递和按类型传递 27以下叙述错误的是（A）
A.Sub Main过程应建立在窗体模块的通用声明段 B.一个过程中只能有一个Sub Main过程
C.若工程文件中有多个窗体，可以根据需要指定一个窗体为启动窗体 D.Sub Main过程应建立在标准模块中
28要想在调用过程后返回两个结果，下面的过程定义语句合法的是（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)
29在过程调用中，参数的传递可以分为（B ）两种方式。 A.按值传递和按参数传递 B.按值传递和按地址传递 C.按参数传递和按位置传递 D.按地址传递和按参数传递
30在Visual Basic工程中，可以作为“启动对象”的程序（C） A.任何窗体模块或标准模块 B.Sub Main过程或其他任何模块 C.Sub Main过程或任何窗体模块 D.任何窗体模块或通用过程
31在参数传递过程中，使用关键字（B ）来修饰参数，可以使之按地址传递。 A.Value B.ByRef C.ByVal D.Reference
32可以在窗体模块的通用声明段中声明（A） A.全局变量 B.全局常量 C.全局数组 D.静态变量
33如果在两个菜单命令项之间加一条分隔线，可在标题文本框中输入(A )。 A.- B.& C.# D.+
34Visual Basic中利用Circle方法不可以画( D )。 A.弧 B.椭圆 C.圆 D.直线
35不可以作为容器对象使用的是( D )。 A.框架 B.窗体 C.图片框 D.图像框
36要设置某文本框的文字具有粗体效果，正确的语句是(C )。 A.Text1.FontItalic = True B.Text1.FontItalic = False C.Text1.FontBold = True D.Text1.FontBold = False
37能够区分各鼠标按钮与【Shift】、【Ctrl】、【Alt】键的事件过程是(D )。 A.Dblclick B.Click C.Keypress D.MouseMove
38通过设置Shape控件的( D )属性可以绘制多种形状的图形。 A.Style B.FillStyle C.BorderStyle D.Shape
39下列不能打开菜单编辑器的操作时（A） A.按Shift+Alt+M
B.执行“工具”菜单中的“菜单编辑器”命令 C.单机工具栏中的“菜单编辑器”命令 D.按Ctrl+E
40设已经在窗体上添加了一个通用对话框控件CommonDialog1，以下正确的语句是（D）。 A.CommonDialog1.Filter=\B.CommonDialog1.Filter={ALL Files|*.*|Pictures(*.Bmp)|*.Bmp} C.CommonDialog1.Filter=ALL Files|*.*|Pictures(*.Bmp)|*.Bmp D.CommonDialog1.Filter=\
41若有一个菜单项（名为MenuItem），为了在运行时使该菜单项失效（变灰），应使用的语句是（C） A.MenuItem.Visible=False B.MenuItem.Checked=True C.MenuItem.Enabled=False
D.MenuItem.Enabled=True
42以下关于菜单的叙述中，错误的是（B）。 A.弹出式菜单在菜单编辑器中设计
B.如果把一个菜单项的Enabled属性设置为False，则可删除该菜单项 C.在程序运行过程中可以增加或减少菜单项
D.利用控件数组可以实现菜单项的动态增加或减少 43与语句Scale(-2,2)-(2,-2)等价的程序段是（B）。 A.ScaleLeft=4:ScaleTop=-4 ScaleWidth=-2:ScaleHeight=2 B.ScaleLeft=-2:ScaleTop=2 ScaleWidth=4:ScaleHeight=-4 C.ScaleLeft= -2: ScaleTop=2 ScaleWidth=2: ScaleHeight= -2 D.ScaleLeft=-4:ScaleTop=2 ScaleWidth=4:ScaleHeight=-2
44当使用Line方法画直线后，当前坐标为（C）。 A.直线的起点 B.容器对象的原点 C.直线的终点 D.容器对象的中心
45下面的属性和方法中，（A）可以重新定义容器对象的坐标系统。 A.Scale方法 B.DrawStyle属性 C.ScaleMode属性 D.DrawWidth属性
46在Visual Basic中坐标轴的缺省刻度单位是缇，用户可以根据实际需要使用（B）改变刻度单位。 A.Scale属性 B.ScaleMode属性 C.DrawStyle属性 D.DrawWidth属性
47语句“open \“ 的一个重要错误是没有（B） A.指定文件类型 B.指定文件号 C.指定打开方式 D.指定打开文件名
48以下能判断是否到达文件尾的函数是（A） A.EOF B.LOF C.BOF D.LOC
49若要将某文件的属性设置为只读，应使用SetAttr语句将其属性参数设为（C） A.vbArchive B.vbNormal C.vbReadOnly D.1
50下列叙述中不正确的是（D）
A.可以按任意顺序访问随机文件中的数据 B.可以同时对打开随机文件进行读写操作
C.随机文件有若干条记录组成，并按记录号引用各个记录 D.随机文件中记录的长度可以不同
一 题目：编写函数Fun，函数的功能是：判断一个数是否为素数。
'要求：使用For语句来实现，并用函数名Fun作为该数
'是否为素数的标志，如果该数是素数，函数返回True，否则函数 '返回False!
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------
Private Function Fun(m As Long) As Boolean '********** Begin ********** Dim i As Integer
For i = 2 To m / 2
If m Mod i = 0 Then Exit For Next i
If i > m / 2 Then Fun = True Else
Fun = False End If
'********** End **********
二 '编写一个判断某正整数N是否是完数的通用过程。 '完数：一个数恰好等于它的因子之和（除自身）， '如：6＝1＋2＋3，因此6是完数。
'要求：使用For语句来实现，并用函数名WanShu作为该数
'是否为完数的标志，如果该数是完数，函数返回True，否则函数 '返回False!
'------------------------------------------------- '注意： 请在指定的事件内编写代码 ' 代码只能写在两行标识之间 ' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。 '-------------------------------------------------
Private Function WanShu(m As Long) As Boolean '********** Begin **********
Dim i As Integer, S As Integer For i = 1 To m / 2
If m Mod i = 0 Then S = S + i Next i
If m = S Then WanShu = True Else
WanShu = False End If
'********** End ********** End Function
Private Sub Form_Click()
Print \是完数吗？\ Print \是完数吗？\ NJIT_VB End Sub
Private Sub NJIT_VB() Dim i As Integer Dim a(10) As String Dim fIn As Integer Dim fOut As Integer fIn = FreeFile
Open App.Path & \ fOut = FreeFile
Open App.Path & \ For i = 1 To 10 Step 1 Line Input #fIn, a(i)
Print #fOut, WanShu(Val(a(i))) Next
Close #fIn Close #fOut
三 随机生成20个两位正整数显示在一个文本框（Text1）中， '并求出它们的平均值显示在另一个文本框（Text2）中。