VB语言程序设计专升本期末考试总复习资料

VB(Visual Basic)语言程序设计专升本期末考试总复习资料《Visual Basic程序设计》复习题一. 单选题1、InputBo
x函数返回值的类型是______。 A：数值 B：字符串 C：变体 D：数值或字符串 2、下面关于数组操作正确的是_____
_。 A：Option Base 2 B：n = 10 Dim a(n) As Integer C：Dim a() As Inte
ger a(1) = 100 D：Dim a a = Array(1, 2, 3, 4, 5, 6)3、已知有如下数组定义Dim
a(-3 To 6, 5, 3 To 10) As Integer 则执行语句Print LBound(a, 2); UBound
(a, 2)，输出的值为______。 A：-3 6 B：0 5 C：1 5 D：3 10 4、以下四个选项中，
对Visual Basic描述正确的是______。 A：Visual Basic窗体文件扩展名为vbp B：一个Visual B
asic应用程序可以包含多个窗体文件 C：一个窗体文件可以有多个代码窗口 D：Visual Basic程序按过程编写先后顺序依次执
行 5、以下四个选项中，对Visual Basic描述正确的是______。 A：Visual Basic窗体文件扩展名为vbp
B：一个Visual Basic应用程序可以包含多个窗体文件 C：一个窗体文件可以有多个代码窗口 D：Visual Basic程序
按过程编写先后顺序依次执行 6、要改变窗体的标题时，应当在属性窗口中改变的属性是________。 A：Name B：Text
C：Caption D：Label 7、设在名称为Myform的窗体上只有一个名称为C1的命令按钮，下面叙述正确的是_____
___。 A：窗体的Click事件过程名是Myform_Click() B：命令按钮的Click事件过程名是C1_Click()
C：命令按钮的Click事件过程名是Command1_Click() D：以上都是错误的 8、以下能在窗体Form1的标题栏上显示
"VB窗体"的语句是________。 A：Form1.Name="VB窗体 B：Form1.Title="VB窗体" C：For
m1.Caption="VB窗体" D：Form1.Text="VB窗体" 9、语句Print Format(12345, "00
00,00.00")输出结果为________。 A：12345.00 B：12345 C：012,345.00 D：123
,45 10、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是
________。 A：Text1.maxlengh=0 B：Text1.Enabled=False C：Tex
t1.Visible=False D：Text1.Width=0 11、设有语句x=InputBox("输入数值"，"0
"，"示例")程序运行后，如果从键盘上输入数值10并按回车键，则下列叙述中正确的是________。 A：变量x的值是数值10
B：在InputBox对话框标题栏中显示的是"示例" C：0是默认值 D：变量x
的值是字符串"10" 12、在窗体上有一个文本框控件，名称为TxtTime：一个计时器控件，名称为Timerl，要求每一秒钟在文本
框中显示一次当前的时间。程序为：Private Sub Timer1_ ________()TxtTime.text=TimeEn
d Sub在下划线后应填入的内容是________。 A：Enabled B：Visible C：Interval D：Ti
mer 13、执行下面的语句后，所产生的信息框的标题是________。a=MsgBox("AAAA"，，"BBBB"，""，5)
A：BBBB B：空 C：AAAA D：出错，不能产生信息框 14、设列表框List1已有5个列表项，则以下不能实现将字
符串"AAA"添加到列表框最末尾的语句是__。 A：List1.AddItem "AAA" B：List1.AddItem "AA
A", List1.ListCount C：List1.AddItem "AAA", List1.ListIndex
D：-x 15、在以下表达式中结果始终为"真"的是_______。 A：Int(Rnd) = Fix(Rnd)
B：Int(Rnd 20) > Fix(Rnd 3 + 5) C：Int(-Rnd) = Fix(-Rnd)
D：-Int(Rnd 20) < -Fix(Rnd 3 + 5) 16、根据变量的作用域，VB中可以将变
量分为3类，分别是_______。 A：局部变量、模块变量和全局变量 B：局部变量、模块变量和标准变量 C：局部变量
、模块变量和窗体变量 D：局部变量、标准变量和全局变量 17、以下叙述中错误的是_______。 A：Visual
Basic应用程序既能以编译方式执行，也能以解释方式执行。 B：对于事件驱动型应用程序，每次运行时的执行顺序可以不一样。 C：保存
Visual Basic程序时，应分别保存窗体文件及工程文件。 D：事件只能由用户引发。 18、对语句Dim a&, b%, c$
, d! 判断错误的是______。 A：声明变量a是长整型 B：声明变量b是整型 C：声明变量c是货币型 D：声明变量d
是单精度型 19、下列说法错误的是_______。 A：标准模块文件的扩展名为.bas B：一个窗体对应一个窗体文件 C：Vis
ual Basic中的一个工程只包含一个窗体 D：Visual Basic中一个工程最多可以包含255个窗体 20、保存一个工程至
少应保存两个文件，这两个文件分别是_______。 A：文本文件和工程文件 B：窗体文件和工程文件 C：窗体文
件和标准模块文件 D：类模块文件和工程文件 21、通过以下_______窗口可以在设计时直观的调整窗体在屏幕上的位置。 A
：代码窗口　　 B：窗体布局窗口　 C：窗体设计窗口　 D：属性窗口 22、下面可以正确定义2个整形变量和1个字符串变量的语
句的是_________。 A：Dim n , m As Integer , s As StringB：Dim a% , b$ ,
c As String C：Dim a As Integer , b , c As StringD：Dim x% , y As
Integer , z As String 23、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label
1和Command1，然后编写如下事件过程：Private Sub Text1_Change()Label1.Caption =
Right(Trim(Text1.Text), 3)End Sub程序运行后，在文本框中输入"abcdef"，单击命令按钮，则在标
签中显示的内容是_________。 A：空 B：abcdef C：abc D：def 24、Sub
过程与Function过程最根本的区别是_______。 A：Sub过程可以直接使用过程名调用，而Function过程不可以 B：
Function过程可以有参数，而Sub过程不可以 C：两种过程参数传递方式不同 D：Sub过程的过程名不能返回值，而Functi
on过程能通过过程名返回值 25、在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A：ByVal
B：ByRef C：Value D：reference 26、设有如下通用过程：Public Function
fun(x As Integer) Dim y As Integer x = 30: y = 4 fun = x yEnd F
unction在窗体上添加一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_C
lick() Static x As Integer x = 20: y = 10 y = fun(x) Print x; yEn
d Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是_______。 A：20 10 B：30 10 C：20
4 D：30 120 27、下列叙述中正确的是________。 A：在窗体的Form_Load事件过程中定义的变量是全局变
量 B：局部变量的作用域可以超出所定义的过程 C：在某个Sub过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用
域只限于该过程 D：在调用过程时，所有局部变量被系统初始化为0或空字符串 28、在窗体上画一个名称为Command1的命令按钮然后
编写如下程序Private Sub Command1_Click() Dim X As Integer Static Y A
s Integer Cls x=x+5 y=y+3 Print X，Y End Sub 程序运行时，两次单击命令按钮Comm
and1后，窗体显示的结果是________。 A：10 6 B：5 6 C：5 3 D：10 3 29、有关VB应用程序
中过程的说法正确的是________。 A：过程的定义可以嵌套，但过程的调用不能嵌套 B：过程的定义不可以嵌套，但过程的调用可以嵌
套 C：过程的定义和调用都可能嵌套 D：过程的定义和调用都不能嵌套 30、在VB中，过程共有三种，它们是________。 A：
事件过程，子过程和函数过程 B：Sub过程，函数过程和属性过程 C：事件过程，函数过程和通用过程 D：Sub过程，函数过程和通
用过程二、填空题1、窗体上有一个命令按钮，事件代码如下：Private Sub Command1_Click() a = "3"
b = "5" a = Val(a) + Val(b) b = Val("35") If a = b Then Print a -
b Else Print b - aEnd Sub程序运行后，单击命令按钮，输出_ __。2、有下图所示的用户登录界面，用户输入
的密码字符均以""显示，若用户输入的用户名为admin，且密码为hello，则登录成功，否则登录失败，提示用户，并将两文本框（名
称分别为Text1、Text2）清空，进行重新输入。请将程序补充完整。Private Sub Command1_Click() I
f Text1.Text <> "admin" Or _ 【1】 Then MsgBox "对不起，你输入的用户名或密码不正确，请
重新输入" Text1 = "" Text2 = "" Else MsgBox "登录成功!" End IfEnd SubPriv
ate Sub Form_Load() Text2. 【2】_ = ""End Sub3、下面程序采用比较交换法对数组进行升序排
序，请将程序补充完整。Option Base 1Private Sub Command1_Click() Dim a, n As
Integer, i%, j% a = Array(23, 546, 34, 27, 5, 68, 435, 9, 78, 89)
n = 【1】__ Print "排序前数组值：" For i = 1 To n Print a(i); Next i Prin
t For i = 1 To __【2】__ For j = i + 1 To n If a(i) > a(j) Then t =
a(i) __ 【3】__ a(j) = t End If Next j Next i Print "升序排序后数组值：" Fo
r i = 1 To n Print a(i); Next iEnd Sub4、当文本框得到焦点时触发 __事件，当文本框失去焦点
时触发LostFocus事件。5、下列程序的输出结果是_ _。Private Sub Form_Click() a = "Hell
oGoodMorning" b = Left(a, 5) c = Mid(a, 10) d = b + c Print dEnd
Sub6、表示Z是3的倍数或是7的倍数的逻辑表达式为_ 。7、运行以下程序，输出的结果为__ ___。Private Functi
on jc(x As Integer) As Long Dim i As Integer jc = 1 For i = 1 To
x jc =jc i Next i End FunctionPrivate Sub Form_Click（） Dim he
as Long he = jc(5)+ jc(3) Print heEnd Sub8、下面程序运行后，单击命令按钮，窗体上输出的结
果是： 【1】 、 【2】 和_【3】 _。Dim x As Integer, y As IntegerPrivate Fun
ction f(x As Integer) Dim y As Integer x = x + 2 f = x + yEnd Fun
ctionPrivate Sub p(ByVal z As Integer) x = y + zEnd SubPrivate Su
b Command1_Click() x = 1: y = 1 Call p(x) z = f(y) Print x; y; zE
nd Sub9、在窗体上添加一个名称为Command1的命令按钮及3个名称分别为Label1，Label2，Label3的标签，并
编写如下程序，程序运行后，单击该命令按钮，在Label1显示的值为 __【1】___，在Label2显示的值为__【2】__ ，在
Label3显示的值为____【3】___。Option Base 1Private Sub Command1_Click() D
im a As Variant a = Array(10, 25, 5, 15, 5) Max = a(1): Min = a(1
) For i = 1 To UBound(a) Sum = Sum + a(i) If a(i) > Max Then Max
= a(i) If a(i) < Min Then Min = a(i) Next i Label1.Caption = Max
Label2.Caption = Min Label3.Caption = Sum / 5End Sub10、下列程序代码的功能是
在窗体上打印数组a中的最小值，请将程序代码补充完整。Option Base 1Private Sub Command1_Click
()Dim a As VariantDim i As Integer, x As Integera = Array(9, 7, 1
0, 2, 8, 12)x = _ __【1】____For i = LBound(a) + 1 To UBound(a) If
a(x) > a(i) Then ____【2】_____Next iPrint a(x)End Sub三、判断题1、标签和文本框
的功能都是在程序运行时只能显示文本内容不能编辑文本内容。2、MsgBox函数可用来接受用户输入的字符串内容。3、要使计时器每隔1分
钟记一次时，设置该计时器的Interval属性值为1 4、函数过程形参的类型与函数返回值的类型没有关系。5、在不同的模块中可以声
明定义相同名字的模块级变量，它们代表不同的变量，而且作用域范围不同，因此互不干扰。6、若参数是按地址传递的，形参和实参类型可以不同
。7、根据文件的存取方式不同，可以将文件分为顺序文件和随机文件。8、执行程序段For i = 1 To 100 Sum = Su
m + iNext i后，i的值为1009、循环Do While n = 100Loop表示当n = 100时循环10、VB中布尔
型（Boolean）的值只有True和False。11、执行程序段For i = 100 To 1 Sum = Sum + i
Next i后，i的值为012、折半（二分）查询只适合于有序数组。13、有程序段Dim a(10) As Integera(10)
= 100两处的a(10)含义相同14、单选按钮选中时，其Value属性为True。15、为了清除列表框中所有内容，应使用Cle
ar方法.16、确定一个控件在窗体上的位置的属性是Left、Top。17、每一个If结构必须以End If语句作为结束。18、用数
组作为过程的参数时，既能以传值方式传递，也能以传地址方式传递。19、print方法可用于图片框控件输出信息。20、VB是一种面向过
程的程序设计语言。四、编程题1、由随机函数产生10道一位整数与两位整数相加的加法题，产生的加法题依次显示在屏幕上，每产生一道题后，
由用户输入答案，如果答案正确，记10分；如果答案错误，允许第二次输入答案，第二次输入答案正确，记5分，错误记0分。最后给出总得分。
2、验证“哥德巴赫猜想：任何一个大于6的偶数，可以表示为两个素数之和”，从键盘输入一个大于6的偶数后，打印出所有的分解结果。3、一
个简易的成绩评定程序，根据评委们给出的成绩，按去掉一个最高分和一个最低分，求平均分的方法求选手的成绩。参考界面如下：编写单击窗体事
件过程，从键盘上输入10个数据并保存在一个一维数组中，找出该数组中最大元素和最小元素的值，并将结果写入顺序文件"D:\test1.
dat"。参考答案《VB程序设计》复习题一、选择题1.B 2.D 3.B 4.B 5.A 6.C 7.B 8.C
9.C 10.B11.D 12.D 13.A 14.C 15.A 16.A 17.D 18.C 19.C 20.B 21.B 2
2.D 23.D 24.D 25.A 26.D 27.C 28.B 29.B 30.A 二、填空题1. 272. 【1】Text2
.Text=”hello” , 【2】 PasswordChar 3. 【1】Ubound(a) 【2】 n-1 【3】a(i
)=a(j)4. SetFocus 5. HelloMorning 6. Z Mod 3=0 Or Z Mod 7=0 7. 12
6 8. 【1】2 【2】3【3】3 9. 【1】25 【2】5 【3】12 10. 【1】1 【2】a(x)=a(i)
三、判断题1.F 2.F 3.F 4.F 5.T 6.F 7.T 8.F 9.T
10.T 11.F 12.T 13.F 14.T 15.T 16.F 17.F 18.F 19.T 20.F四、编程题1、程
序代码如下Private Sub Form_Click() s = 0 For i = 1 To 10 a = Int(10
Rnd) b = Int(10 + 10 Rnd) str1$ = "第" & i & "题 " & a & "+" & b
c = Val(InputBox(str1$ & " 第一次回答")) If a + b = c Then s = s + 10
str2$ = str1$ & " 10分" Else c = Val(InputBox(str1$ & " 第二次回答")) I
f a + b = c Then s = s + 5 str2$ = str1$ & " 5分" Else str2$ = str
1$ & " 0分" End If End If Form1.Print str2$ Next i Form1.Print "总分
"; sEnd SubPrivate Sub Form_Load() Form1.AutoRedraw = True Form1.
Print "加法题，第一次回答正确10分，" Form1.Print "第二次回答正确5分" Form1.Print "单击窗体
开始"End Sub2、程序代码如下Private Sub Form_Click() n = Val(InputBox("输入一个
大于6的偶数")) If n <= 6 Or n Mod 2 <> 0 Then Form1.Print "数据错误" Else
For m1 = 2 To n / 2 m2 = n - m1 f = 0 For i = 2 To m1 - 1 If m1 M
od i = 0 Then f = 1: Exit For Next i For i = 2 To m2 - 1 If m2 Mo
d i = 0 Or f = 1 Then f = 1: Exit For Next i If f = 0 Then Print
m1; m2 Next m1 End IfEnd SubPrivate Sub Form_Load() Form1.AutoRed
raw = True Form1.Print "打印两个素数之和" Form1.Print "单击窗体开始"End Sub3、程序
代码如下：Private Sub Command1_Click()Dim sum As SingleDim max As Sing
le, min As Singlesum = 0For i = 0 To 5 Text1(i).Text = Int(Rnd
10) / 10 + 9 sum = sum + Val(Text1(i).Text)Next imin = Val(Text1(
0).Text): max = Val(Text1(0).Text)For i = 1 To 5 If min > Val(Te
xt1(i).Text) Then min = Text1(i).Text End If If max < Val(Text1(i
).Text) Then max = Text1(i).Text End IfNext iaverage = (sum - min
- max) / 4Label4.Caption = Int(average 10) / 10End Sub4、程序代码如下
：Option Base 1Private Sub Form_Click() Dim a(10) As Integer For i
= 1 To 10 a(i) = Val(InputBox("请输入数")) Next i Open "test1.dat" F
or Output As #1 Max = a(1) Min = a(1) For i = 2 To 10 If a(i) > M
ax Then Max = a(i) If a(i) < Min Then Min = a(i) Next i Write #1,
Max, Min Close #1End Sub《Visual Basic程序设计》复习题一. 单选题1、在VB中，将多条语句写
在同一行，需加______进行分隔。 A：, B：: C：; D：空格答案：B2、下面程序段执行后，输出的结果是______
。Dim pi As Integerpi = 3.14Print "pi" A：3.14 B：3 C：pi D：有语法错误答
案：C 3、下面关于数组操作正确的是______。 A：Option Base 2 B：n = 10 Dim a(n) As In
teger C：Dim a() As Integer a(1) = 100 D：Dim a a = Array(1, 2, 3,
4, 5, 6)答案：D 4、以下均为窗体的事件，在一次程序执行过程中，一定会被触发的事件是______。 A：Load B：C
lick C：Unload D：DblClick答案：A5、 以下叙述中错误的是_________。A：一个工程可以包括多种类
型的文件B：Visual Basic应用程序既能以编译方式执行，也能以解释方式执行C：程序运行后，在内存中只能驻留一个窗体D：对于
事件驱动型应用程序，每次运行时的执行顺序可以不一样答案 C6、下面关于过程叙述错误的是______。 A：可以在事件过程中调用通用
过程 B：不能在函数过程中定义事件过程 C：函数过程可以返回多个值 D：一个Sub过程必须有一个End Sub语句答案：C 7、
执行语句s = Len(Mid("Bei Jing", 1, 7))后，s的值是______。 A："Bei Jing" B："B
ei Jin" C：7 D：8答案：C8、下面______是合法变量名。 A：k-string B：string C：k s
tring D：k_string答案：D 9、在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1
和Command1，然后编写如下两个事件过程：Private Sub Command1_Click()S$ = InputBox(
"请输入一个字符串")Text1.Text = S$End SubPrivate Sub Text1_Change()Label1
.Caption = UCase(Mid(Text1.Text, 7))End Sub程序运行后，单击命令按钮，将显示一个输入对话
框，如果在该对话框中输入字符串"VisualBasic"，则在标签中显示的内容是________。 A：BASIC B：Basi
c C：basic D：VisualBasic答案：A 10、下面程序运行后，第3次单击窗体后，窗体中输出的是______。D
im a As IntegerPrivate Sub Form_Click() Static c As Integer Cls a
= a + 1 b = b + 1 c = c + 1 Print a; b; cEnd Sub A：1 1 1 B：1
1 3 C：3 1 3 D：3 3 3答案：C11、下面选项中Visual Basic数据类型关键字与其说明符不一
致的是______。 A：Integer ! B：String $ C：Long& D：Double #答案：A1
2、要改变窗体的标题时，应当在属性窗口中改变的属性是________。 A：Name B：Text C：Caption D：
Label答案：C 13、设在名称为Myform的窗体上只有一个名称为C1的命令按钮，下面叙述正确的是________。 A：窗体
的Click事件过程名是Myform_Click() B：命令按钮的Click事件过程名是C1_Click() C：命令按钮的Cl
ick事件过程名是Command1_Click() D：以上都是错误的答案：B 14、以下说法正确的是________。 A：窗体
文件的扩展名为.vbp B：一个窗体对应一个窗体文件 C：VB中的一个工程只包含一个窗体 D：VB一个工程最多可包含256个窗
体答案：B 15、无论何种控件，都具有一个共同的属性________。 A：Caption B：Name C：Text D：
Font答案：B 16、语句a=InputBox("today", "tomorrow", "yesterday",,, "day
before yesterday", 5)将显示一个对话框，在对话框的输入区中显示的信息是（）。 A：today B：tomo
rrow C：yesterday D：day before yesterday答案：C 17、设窗体上有一个文本框，名称为Te
xt1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是________。 A：Text1.maxle
ngh=0B：Text1.Enabled=False C：Text1.Visible=FalseD：Text1.Width=0答案
：B18、在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，则以下正确的属性设置是________
。 A：Timer1.Interval=0.5B：Timer1.Interval=5 C：Timer1.Interval=50D：
Timer1.Interval=500答案：D 19、在窗体（Name属性为Forml）上画两个文本框（其Name属性分别为Tex
t1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程：Private Sub Comman
d1_Click()A = Text1.Text + Text2.TextPrint a End SubPrivate Sub F
orm_Load()Text1.Text =""Text2.Text =""End Sub程序运行后，在第一个文本框（Text1）
和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为__________。 A：444B：3211
23 C：123321 D：132231答案：C20、以下循环结构中，任何情况下至少执行一次循环体的是______。 A：Fo
r 循环变量 = 初值 To 终止值 循环体 Next 循环变量 B：While <条件> 循环体 Wend C：Do 循环体 L
oop Until <条件> D：Do While <条件> 循环体 Loop答案：C 21、下面程序运行后，第3次单击窗体后，窗
体中输出的是______。Dim a As IntegerPrivate Sub Form_Click() Static c As
Integer Cls a = a + 1 b = b + 1 c = c + 1 Print a; b; cEnd Sub A
：1 1 1 B：1 1 3 C：3 1 3 D：3 3 3答案：C 22、以下能够触发文本框Change事
件的操作是________。 A：文本框失去焦点 B：文本框获得焦点 C：设置文本框的焦点 D：改变文本框的内容答案：D 2
3、在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click() Dim x As Integer
x = Val(InputBox("请输入一个整数")) Print x + Text1.TextEnd Sub程序运行时，在文
本框中输入12，然后单击窗体，在输入对话框中输入34，单击"确定"按钮后，在窗体上显示的内容为______。 A：46B：123
C：3412 D：1234答案：A24、根据变量的作用域，VB中可以将变量分为3类，分别是_______。 A：局部变量、模块
变量和全局变量B：局部变量、模块变量和标准变量 C：局部变量、模块变量和窗体变量D：局部变量、标准变量和全局变量答案：A 25、执
行下面的语句后，所产生的信息框的标题是________。a=MsgBox("AAAA"，，"BBBB"，""，5) A：BBBB
B：空C：AAAA D：出错，不能产生信息框答案：A 26、Cls方法可以清除窗体或图片框中的________内容。 A：在设
计阶段使用Picture设置的背景位图 B：在设计阶段放置的控件 C：在运行阶段产生的文字D：以上全部内容答案：C 27、设列表
框List1已有5个列表项，则以下不能实现将字符串"AAA"添加到列表框最末尾的语句是__。 A：List1.AddItem "A
AA" B：List1.AddItem "AAA", List1.ListCount C：List1.AddItem "AAA",
List1.ListIndexD：-x答案：C 28、在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Com
mand1_Click() For i=5 to 1 step -0.8 Print Int(i); Next iEnd Sub运
行程序，单击命令按钮，窗体上显示的内容为________。 A：5 4 3 2 1 1B：5 4 3 2 1C：4 3 2 1 1
D：4 4 3 2 1 1答案：A 29、立即窗口执行以下操作，则输出的结果是_______。a＝10：b＝15debug.Pri
nt a>b A：-1B：0C：TrueD：False答案：D 30、设a="MicrosoftVisualBasic", 则以下
使变量b的值为"VisualBasic"的语句是_______。 A：b=Left(a,10) B：b=Mid(a,10) C
：b=Right(a,10) D：b=Mid(a,11,10)答案：B 31、在窗体中添加一个命令按钮，名称为Command1，
然后编写如下程序Private Sub Command1_Click()A = 1234B$ = Str$(A)C = Len(B
$)Print CEnd Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是_______。 A：0 B：5 C：6
D：7答案：B 32、对语句Dim a&, b%, c$, d! 判断错误的是______。 A：声明变量a是长整型 B：声明变量
b是整型 C：声明变量c是货币型D：声明变量d是单精度型答案：C 33、有变量定义语句Dim max, min As Inte
ger，可以知道max的类型是_______。 A：变体类型B：单精度型C：双精度型D：字符串型答案：A 34、产生[10,90]
闭区间之间的随机整数的表达式为_______。 A：Int(Rnd 80) + 10B：Int(Rnd 81) + 10
C：Int(Rnd 80) + 11D：Int(Rnd 81) + 11答案：B 35、下列说法错误的是_______。
A：标准模块文件的扩展名为.bas B：一个窗体对应一个窗体文件 C：Visual Basic中的一个工程只包含一个窗体 D：V
isual Basic中一个工程最多可以包含255个窗体答案：C 36、下面各语句中，错误的语句是_______。 A：Dim A
1,A2B：(A +B) = CC：A = B + CD：A = "B" + C答案：B37、对变量名说法不正确的是_______
。 A：必须是字母开头，不能是数字或其他字符 B：不能是Visual Basic的保留字 C：可以包含字母、数字、下划线和标点符
号 D：不能超过255个字符答案：C 38、在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Privat
e Sub Command1_Click() a$ = "software and hardware" b$ = Right(a$
, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 9 End Sub 运行程序，单击命令按
钮，则在弹出的信息框的标题栏中显示的是________。 A：software and hardwareB：softwareC：h
ardwareD：9答案：C 39、下面关于常量或变量定义错误的是_________。 A：Const n% = 1 B：Dim
n As Double = 3.14 C：Dim m As Integer D：Dim s$答案：B 40、要想在过程调用后
返回两个结果，下面过程定义语句中语法正确的是_______。 A：Sub swap(By Val m，By Val n)B：Su
b swap(m, By Val n) C：Sub swap(m, n)D：Sub swap(By Val m, n)答案：C4
1、Sub过程与Function过程最根本的区别是_______。 A：Sub过程可以直接使用过程名调用，而Function过程不
可以 B：Function过程可以有参数，而Sub过程不可以 C：两种过程参数传递方式不同 D：Sub过程的过程名不能返回值，而F
unction过程能通过过程名返回值答案：D42、下面程序的输出结果是_______：Private Sub proc(ch As
String) s = "" For k = Len(ch) To 1 Step -1 s = s & Mid(ch, k, 1
) Next k ch = sEnd SubPrivate Sub Command1_Click() ch$ = "ABCDEF"
proc ch Print chEnd Sub A：ABCDEFB：AC：FEDCBAD：F答案：C43、以下是一个能返回数组a
中最大数的函数过程代码：Function maxval(a() As Integer) As Integer Dim max% m
ax = 1 For i = 2 To 10 If a(i) > a(max) Then max = i Next i maxva
l = maxEnd Function程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是______。 A：
语句"max = 1"应改为"max = a(1)" B：语句"For i = 2 To 10"应改为"For i = 1 To
10" C：if语句"max = k"应改为"max = a(k)" D：语句"maxval = max "应改为"maxval
= a(max)"答案：D44、在窗体上画一个名称为Command1的命令按钮，编写下列程序： Private Sub Comm
and1_Click() Dim a As Integer Static b As Integer cls a=a+b b=b+4
Print a,b End Sub 程序运行后，单击该命令按钮三次，屏幕上显示的值是________。 A：4 12 B：O
4 C：4 8 D：8 12答案：D45、单击一次命令按钮后，下列程序的执行结果是________。Privat
e Sub Command1_Click() s=P(1)+P(2)+P(3)+P(4) Print sEnd SubPublic
Function P(N As Integer) Static Sum For i=I To N Sum=Sum+i Next
i P=SumEnd FunctionA：15 B：25 C：35 D：45答案：C46、下面子过程语句说明合法的是____
____。 A：Sub f1(ByVal x()As Integer) B：Sub f1(x%0)As Integer C：Fu
nction f%(f1%) D：Function f1%(x As Integer)答案：D47、在窗体上画一个名称为Comm
and1的命令按钮，编写如下程序Private Sub Command1_Click()Print pl(3, 7)End Sub
Public Function pl(x As Single, n As Integer) As SingleIf n = 0 T
henpl = 1ElseIf n Mod 2 = 1 Thenpl = x x + nElsepl = x x - nE
nd IfEnd Function程序运行后，单击该命令按钮，窗体上显示的结果是________。 A：2 B：1 C：0
D：16答案：D48、设有如下过程：Sub ff(x，y，z) x=y+zEnd Sub以下是传址方式的调用语句是________
。 A：Call ff(5，7，z)B：Call ff(x，y，z) C：Call ff(3+x，5+y，z)D：Call ff
(x+y，x-y，z)答案：B49、有语句option base 0,则下面定义的数组含有12个数组元素的是___________
____。 A：dim a(-2 to 0,2)as integer B：dim a(4,3)as integer C：dim
a(3,2)as integer D：dim a(-1 to -4 ,-1 to -3) as integer答案：C50、在窗
体上画一个命令按钮，然后编写如下单击命令按钮事件过程： Private Sub Command1_Click() dim a(10
) As Integer For i=0 to 10 a(i)=2i+1 Next i print a(2)+a(5) End
Sub程序运行时，如果单击命令按钮，则窗体输出_____________。 A：11 B：14 C：12 D：16答案：D5
1、设有如下程序： Option Base 1 Private Sub Form_Click() Dim a(10), P(3)
As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1
To 3 P(i) = a(i i) Next i For i = 1 To 3 k = k + P(i) 2
Next i Print k End Sub 程序运行后，单击窗体，则窗体上显示的是_______________。 A：33 B：35 C：37 D：39答案：A53、下面对于控件数组的操作正确的是_____________________。 A：建立控件数组必须在建立多个不同类型的控件到窗体上，通过修改它们的名字使其成为控件数组 B：控件数组一旦建立，不能删除 C：控件数组可以通过复制某个控件的方式建立 D：控件数组的各个控件不能共享事件过程答案：C54、设有如下的记录类型:Private Type Student num As String name As String age As IntegerEnd Type则下列选项中正确引用该自定义数据类型的变量的选项是________________。 A：Student.name = "张三" B：Dim s As Type Student C：Dim s As Students.name=" 张三" D：Dim s As Type s.name = "张三"答案：C55、对于一个有序排列的数组，如果需要查找某个数组元素，采用最快的查找方法是_______。 A：人工查找 B：折半查找 C：顺序查找 D：没有最快的查找方法答案：B56、设有语句open "c：\Test．Dat" For Output As #1 ，则以下错误的叙述是________。 A：该语句一定是打开C盘根目录下一个己存在的文件Test．Dat B：该语句可能是在C盘根目录下建立一个名为Test．Dat的文件 C：该语句建立的文件的文件号为1 D：执行该语句后，就可以通过Print#语句向文件Test．Dat中写入信息答案：A57、设有语句：Open "d:\Test.txt" For Output As #1，以下叙述中错误的是________。 A：若d盘根目录下无Test.txt文件，则该语句创建文件 B：用该语句建立的文件的文件号为1 C：该语句打开d盘根目录下的一个已存在的文件Test.txt，之后就可以从文件中读取信息 D：执行该语句后，就可以通过Print #语句向文件Test.txt中写入信息答案：C58、以下语句用于打开一个顺序文件Open "C:\MyFile.txt"For OutPut但该语句的一个重要错误是没有_________。 A：指定打开方式 B：指定文件类型 C：指定打开文件名D：指定文件号答案：D59、以下列________方式打开一个不存在的文件时会产生错误。 A：OutputB：AppendC：Random D：Input答案：D60、要设置单选按钮Option1被选中，下面代码正确的是_______。 A：Option1.Value = True B：Option1.Enabled = True C：Option1.Value = False D：Option1.Enabled = False答案：A