VB数组测试题及答案

数组测试题

（一）：选择题（8小题）

1．下列数组声明语句，是正确的。

(a) Dim a[3,4] As Integer (b) Dim a(3,4) As Integer

(c) Dim a(n,n) As Integer (d) Dim a(3 4) As Integer 2．以下程序输出的结果是。

Dim a： A=Array(1,2,3,4,5,6,7)

For I=Lbound(a) To Ubound(a)

A(i)=a(i)*a(i)

Next I

Print a(i)

(a) 49 (b) 0 (c) 不确定 (d) 程序出错

3．下面程序段的运行结果是。（ Option Base 1）

Private Sub Form_Click()

Dim a： b$ = "": c$ = ""

a = Array("effort", "run", "lucky")

For i = 1 To UBound(a)

b$ = b$ + Left$(a(i), 1)： c$ = c$ + Right$(a(i), 1)

Next I

Print c$ + b$

End Sub

（A）effort （B）tnyerl （C）erltny （D）c$+b$

4．以下程序输出的结果是。（Option Base 1）

Private Sub Command1_Click( )

Dim a%(3,3)

For I=1 to 3

For j=1 to 3

If j>1 And I>1 Then

A(I,j)=a(a(I-1,j-1),a(I,j-1))+1 Else

A(I,j)=I*j

End If

Print a(I,j);””;

Next j

Print

Next I

End Sub

（a） 1 2 3 (b) 1 2 3

2 3 1 1 2 3

3 2 3 1 2 3

(c ) 1 2 3 (d) 1 1 1

2 4 6 2 2 2

3 6 9 3 3 3

5．如下数组声明语句中，数组a包含元素的个数为Dim a(3,-2 to 2,5)

(a) 120 (b)75 (c) 60 (d) 13 6．下面程序输出的结果是。(Option Base 1)

Private Sub Command1_Click( ) Dim a,b(3,3)

A=Array(1,2,3,4,5,6,7,8,9)

For I=1 to 3

For j=1 to 3

B(I,j)=a(I*j)

If (j>=I) Then

Print Tab(j*3);Format(b(I,j),”###”);

End if

Next j

Print

Next I

End Sub

(a) 1 2 3 (b) 1 (c) 1 4 7 (d) 1 2 3

4 5 6 4 5 2 4 6 4 6

7 8 9 7 8 9 3 6 9 9 7.有如下程序，运行输出结果如下：请选择正确内容，将处补充完整。

Private Sub Form_Click()

Dim a(1 To 3, 1 To 3) As Integer

For j = 1 To 3

For k = 1 To 3

a(j, k) =

Print a(j, k);

Next k

Print

Next j

End Sub

（A）j + k （B）(j + 1) * 3 + k

（C）j + (k - 1) * 3 （D）j * k

8．下面程序，当从键盘输入1,2,4,4,4,-1时，输出的结果是。

Private Sub Form_Click()

Dim s(1 To 5) As Integer

x = Val(InputBox("请输入x的值："))

Do While x <> -1

s(x) = s(x) + x

x = Val(InputBox("请输入x的值："))

Loop

For i = 1 To 5

If s(i) >= 3 Then Print i; s(i)

Next I

End Sub

（A）1 3 （B）3 4 （C）4 4 （D）4 12

（二）：填空题（5小题）

1．随机产生6位学生的分数(分数范围1～100)，存放在数组a中，以每2分显示一个”*”(分数-1后除以2)，并输出学生的分数。结果显示如下图所示。

Private Sub Command1_Click( )

Dim a(1 to 6)

For I=1 to 6

A(i)= ①

Print ②

Next I

End Sub

2．以下程序用于产生20个（0，99）之间的随机整数，并将其中偶数输出。

Private Sub Command1_Click( )

Randomize

For j=1 To 20

x=Int(Rnd*【③】)

If x/2=【④】 Then Print x

Next j

End Sub

3．下面的程序用于求3个数中的最大数，补充完整程序。

Private Sub Command1_Click( )

a=Val(InputBox("请输入第一个数"))

b=Val(InputBox("请输入第二个数"))

c=Val(InputBox("请输入第三个数"))

max=a : min=a

If b>【⑤】 Then max=b

If b<【⑥】 Then min=b

If 【⑦】 Then max=c

If 【⑧】 Then min=c

Print "最大值为："；max

Print "最小值为："；min

End Sub

4．程序代码实现:单击命令按钮Command1时形成并输出一个主对角线上元素值为-1，其它元素值为0的6×6阶方阵。

Private Sub Command1_Click( )

Dim a(6,6)

For k=1 To 6

For j=1 To 6

If k=j Then

【⑨】

Else

【⑩】

Endif

Print 【⑾】

Next j

Print

Next k

End Sub

5．下面是用选择排序法对n个数由小到大排序的程序，请在处添上正确答案。（Option Base 1）

Dim a()

Private Sub Form_Click()

Randomize Timer

n = InputBox("请输入需要排序的数的个数：")

⑿

For i = 1 To n

a(i) = 200 * Rnd

Next I

For i = 1 To n – 1

k = I

For j = （13）

If （14） Then k = j

Next j

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

Next I

For i = 1 To n

Print a(i);

Next I：End Sub

（三）、编写程序

编写完整的窗体Form1的单击事件代码，要求实现：

随机产生49个 [10,99]范围内的整数，并将它们按照从小到大的顺序（以每行7个数据）输出。

数组测试题答案

一）选择题

二）填空题

1)INT(RND*100+1)

2)STRING(a(i)\2,”*”);”a(“;I;”)”;”=”;a(i)

3)98+1

4)x\2 或者int(x\2)

5)max或者a

6)min 或者a

7)c>max 或者c>b

8)c

9)a(k,j)=-1

10)a(k,j)=0

11)print a(k,j)

12)redim a(n)

13)j=I+1 to n

14)a(k)>a(j)

三）程序题

【说明：声明数组和输入数组元素，输出数组元素】

Private sub form_click()

Dim x(1 to 49) as integer

For I=1 to 49

X(i)=int(rnd*90+10)

Print x(i);

If I mod 7=0 then print

Next I

【说明：冒泡法排序，输出排序后的结果】

For I=1 to 48 Array For j=I+1 to 49

If x(i)>x(j) then

End if

Next j

Next I

For I=1 to 49 Print x(i);

Next I

End sub

VB循环结构测试题及答案

循环结构测试题(四) 一：选择题 1：以下（）是正确的for….next结构。 （A）for x=1 to step 10 (B) for x=3 to –3 step -3….. ….. next x next x (C ) for x=1 to 10 (D) for x=3 to step 3 re: …. …… Next x next y If I=10 then goto re 2:下列循环语句能正常结束循环的是（） （A）I=5 (B) I=1 do do I=I+1 I=I+2 Loop until I<0 loop until I=10 (C) I=10 (D) I=6 do do

I=I-1 I=I-2 Loop until I<0 loop until I=1 3:下面程序段的运行结果为（ ） for I=3 to 1 step –1 print spc(5-I); for j=1 to 2*I-1 print “*”; next j print next I 4下列程序在文本框输入“ABCD ”四个字符时，窗体上显示的是（ ） private sub text1_change( ) print ; end sub (A) ABCD (B) ( C ) AABABCABCD * * * * (B) * * * * * * * * (C) * * * * * * * * (D) * * * * * * * * A B C (D) A AB ABC

5哪个程序段不能分别正确显示1!,2!,3!,4!的（ ） 二：填空题 1：要使下列For 语句循环执行20次，循环变量的初值应当是： for k=( ① ) to –5 step –2 2:下面程序段显示（ ② ）个“*” 。 For I=1 to 5 For j=2 to I Print “*”; Next j Next I 3: 下列第40句共执行了（ ③ ）次，第41句共执行（④ ）次。 30 for j=1 to 12 step 3 40 for k=6 to 2 step –2 41 print j,k 42 next k （A ） for I=1 to 4 n=1 for j=1 to I （B ） for I=1 to 4 for j=1 to I n=1 (C) N=1 for j=1 to 4 (D) N=1 J=1 Do while j<=4

vb试题及答案

VB试卷 一、单项选择题(每题2分,共40分) 1. 窗体的标题栏显示内容由窗体对象的属性决定。 A) BackColor B)BackStyle C)Text D)Caption 2. 窗体的示意图标可用属性来设置。 A) Picture B) Image C) Icon D) MouseIcon 3. 窗体的控制菜单的有无由窗体对象的属性决定。 A) ControlBox B) MinButton C) MaxButton D) BorderStyle 4. 若要取消窗体的最大化功能，则可设置属性为False来实现。 A) ControlBox B) MinButton C) MaxButton D) Enabled 5. 以下4个选项，不属于VB的工作模式。 A) 编译 B) 设计 C) 运行 D) 中断 6. 窗体的边框样式由窗体对象的属性来设置。 A) BackStyle B) BorderStyle C) WindowState D) FillStyle 7. 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的属性来实现。 A) FontName B) Font C) FontSize D) FontBold 8. 命令按钮的标题文字由属性来设置。 A) Text B) Caption C) Name D) (名称) 9. VB是面向对象的程序设计，以下4个选项，不属于面向对象的三要素。 A) 变量 B) 属性 C) 事件 D) 方法 10. 若要将某命令按钮设置为默认命令按钮，可设置属性为True来实现。 A) Value B) Cancel C) Default D) Enabled 11. 若要使命令按钮不可见，可设置属性为False来实现。 A) Value B) Enabled C) Visible D) Cancel 12. 运行程序时，系统自动执行窗体的事件。 A) load B) click C) unload D) GotFocus 13. 若要设置文本框最大可接收的字符数，可通过属性来实现。 A) MultiLine B) Length C) Max D) MaxLength 14. 若要使某命令按钮获得控制焦点，可使用方法来设置。 A) Refresh B) SetFocus C) GotFocus D) Value 15. 若要使命令钮可响应事件，可通过设置属性的取值来实现。 A) Visible B) Enabled C) Default D) Value 16. 在运行时，若要调用某命令按钮的Click事件过程，可设置该命令按钮对象的 属性为True来实现。 A) Enabled B) Value C) Default D) Cancel 17. 标签框的边框，由属性的设置值决定。

VB模拟试卷和答案讲解

北京语言大学网络教育学院 《VB》模拟试卷一 注意： 1.试卷保密，考生不得将试卷带出考场或撕页，否则成绩作废。请监考老师负责监督。 2.请各位考生注意考试纪律，考试作弊全部成绩以零分计算。 3.本试卷满分100分，答题时间为90分钟。 4.本试卷分为试题卷和答题卷，所有答案必须答在答题卷上，答在试题卷上不给分。 一、【单项选择题】(本大题共20小题，每小题2分，共40分)在每小题列出的四个选项中只有一个选项是符合题目要求的，请将正确选项前的字母填在答题卷相应题号处。 1、关于VB的特点描述错误的是（）。 [A] VB编程是可视化编程[B] 是面向对象的程序设计 [C]不可以访问数据库[D]采用事件驱动编程机制 2、下面关于鼠标的指针设置说法不正确的是（）。 [A] 可以使用MouseIcon设置鼠标的形状 [B] 可以使用MousePointer设置鼠标的形状 [C] MousePointer设为99时，可用MouseIcon设置鼠标的形状 [D] MouseIcon只能通过属性窗口选择鼠标形状 3、Dim Snow（1 to 12 ，1），As Integer 是大小为（）的二维数组。 [A]13*2 [B] 13*1 [C] 12*2 [D] 12*1 4、在工具箱里的都是（）。 [A] 标准控件[B] 外部控件 [C] ActiveX控件[D] 可插入对象（OLE） 5、一个窗体大小改变时被触发的事件是（）。 [A] Click事件[B] Resize事件 [C] Initialize事件[D] Unload事件 6、下列关于控件说法不正确的是（）。 [A] Agent控件用于设置动画行为 [B] TextBox用于接收用户输入的信息 [C] Frame用于将控件分为若干组，当框架移动时，其中的控件不移动 [D] ListBox向列表中添加一个新的项目 7、关于CheckBox控件描述错误的是（）。 [A] 是复选框按钮，用√表示选中[B] Value用来表示复选框状态。 [C] Value为1表示选中该框[D] Value为0表示该框被禁止，显示灰色 8、关于Shape控件描述正确的是（）。 [A] 用于向窗体添加矩形、圆形等图形[B] Arial取值有7种，FillStyle取值有8种 [C] Arial用于设置显示控件的形状[D] FillStyle用来设置控件填充风格。 9、下面不属于循环控制语句的是（）。

vb试题及答案

一、选择题（1-30 题每小题1分，共30分，31-45题每小题2分,共30分，总计60分）要使窗体Form1的标题栏中显示“正在复制文件…”，正确的语句是：a A．Form1.Caption=“正在复制文件…” B．Form1.Title=“正在复制文件…” C．Form1.Text=“正在复制文件…” D．Form1.名称=“正在复制文件…” 如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于：a A．1000 B．100 C．10 D．1 3、下列关于控件的基本操作中，错误的是 A)当控件处于活动状态时，可以对控件进行缩放 B) 在设计阶段不能移动控件 C) Visual Basic 6.0 允许对画好的控件进行复制和删除 D) 可以通过属性窗口改变控件的位置和大小 4、用Visual Basic 开发应用程序的一般步骤有：①设置窗体和控件的属性、②编写代码、③建立用户界面，其中正确的顺序是： A) ①②③B) ①③②C) ③②①D) ③①② 5、为使文本框只能显示不能输入，即只读，应设置文本框的属性是：c A．MaxLength设置为0 B．Cancel设置为True C．Locked设置为True D．Read设置为True 6、InputBox函数返回值的类型为。B A．数值B．字符串C．变体 D．数值或字符串（视输入的数据而定） 7、为了把焦点移到某个指定的控件，所使用的方法是：A A．SetFocus B．Visible C．ReFresh D．GetFocus 8、函数String(3,”str”)的功能是：b A．把数值型数据转换成字符串 B．返回有3个字符串组成的字符串 C．从字符串中第3个字符 D．从字符串中第3个字符的位置开始取字符串 9、双击窗体中的对象后，Visual Basic将显示的窗口是：c A．项目（工程）窗口B．工具箱C．代码窗口D．属性窗口 10、用于获得字符串s最左边4个字符的函数是：a A．Left(s,4) B．Left(1,4) C．LeftStr(s) D．LeftStr(3,4) 11、以下程序段的输出结果是：d a=Sqr(3) b=Sqr(2) c=a>b Print c A．-1 B．0 C．False D．True 12、用下面语句定义的数组的元素个数是：c Dim A (-4 to 6) As Integer A．6 B．7 C．11 D．9

vb试卷答案

<一>界面设计 1、以下有关对象属性的说法中正确的是D 。A、对象所有的属性都罗列在属性窗口列表中B、不同对象不可能有同名属性 C、不同对象的同名属性取值一定相同 D、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变 2、有程序代码：Text1.Text=”Visual Basic”其中的Text1、Text和”Visual Basic”分别代表 C 。 A、对象、值、属性 B、对象、方法、属性 C、对象、属性、值 D、属性、对象、值 3、一个对象可以执行的动作与可被对象识别的动作分别称为B 。A、事件，方法B、方法，事件C、属性，方法D、过程，事件 4、Visual Basic是一种面向D 的程序设计语言。 A、过程 B、用户 C、方法 D、对象5、一只白色的足球踢进球门，则白色、足球、踢、进球门是B 。A、属性、对象、方法、事件B、属性、对象、事件、方法C、对象、属性、方法、事件D、对象、属性、事件、方法6、Visual Basic是用于开发B 环境下的应用程序的工具。A、DOS B、Windows C、DOS和Windows D、UNIX 7、一个可执行的Visual Basic中应用程序至少要包括一个C 。A、标准模块B、类模块C、窗体模块D、辅助模块8、在Visual Basic

最基本的对象是B ，它是应用程序的基石。A、标签B、窗体C、文本框D、命令按钮 9、如果要在两个菜单命令项之间加一条分隔线，可在标题文本框中键入A 。A、- B、+ C、& D、# 10、在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入B 符号，那么在运行程序时按Alt键和该字母键就可打开该命令菜单。 A、下划线 B、& C、$ D、@ 11、在窗体Form1的Click事件过程中有以下语句： Label1.Caption=”visual basic” 若本语句执行前，标签控件的名称属性和Caption属性取缺省值，则标签控件的名称属性和Caption 属性在执行本语句前的取值分别为 C 。 A、Label, Label B 、Label, Caption C、Label1, Label1 D、Caption, Label 12、同上题，该语句执行后，标签控件的名称属性和caption属性取值分别为B 。 A、Label, visual basic B、Label1, visual basic C、Label1, caption D、Label1, label1 13、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click()事件，则命令按钮控件的名称属性和Caption属性分别 为C 。 A、OK、Cmd B、Cmd、OK C、CmdOK、OK D、OK、CmdOK 14、窗体Form1的名称属性是frm，它的Load事件过程名是A 。 A、Form_Load B、Form1_Load C、frm_Load D、Me_Load 15、 用窗体的C__属性来设置窗体的标题。

VB程序设计试题及答案(一)

VB程序设计试题及答案（一） 一、单选题 1. 是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) =“欢迎使用VB” (B) ='欢迎使用VB' (C) =欢迎使用VB (D) ="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 … … Next x Next x

VB期末试卷(A卷带答案 )

高级语言程序设计（VB）试卷（A卷） 注意事项：1、本试卷共页，满分为 100 分，考试时间为 110 分钟。 2、标准答题卡使用2B铅笔涂写；文字题答题时请使用蓝、黑钢笔或圆珠笔， 不得使用红颜色墨水笔。 一、单项选择题（每空1分，共 30分） （请将答案按照题干上【】内的序号涂写“标准答题卡”，否则不得分） 1．在VB 6.0中，扩展名为.vbp的文件称为【1】。 A) 工程文件B) 窗体文件C) 类模块文件D) 标准模块文件 2．在VB 6.0集成开发环境的设计模式下，用鼠标双击窗体上的某个对象后，打开的窗口是【2】。 A) 代码窗口B) 窗体设计窗口 C) 属性窗口D) 工程资源管理器窗口 3．设有变量定义语句Dim a%，则变量a的数据类型是【3】。 A) 整型B) 单精度类型C) 双精度类型D) 字符串类型4．下列表达式中，值为False的是【4】。 A) "AB"<"abc"B) "ABC" = UCase("abc") C) "ABCD"<"abc"D) Mid("ABCD",3,1)=Left("ABCD",3) 5．函数InStr("ABCDEF", "CD")的值是【5】。 A) 2B) 3C) True D) CDEF 6．下列程序运行后，单击窗体，输出结果是【6】。 Private Sub Form_Click() Dim a As Integer, b As Integer a = 3 b = 5

Print a + b; a & b End Sub A) 8 8 B) 35 35 C) 8 35 D) 35 8 7．下列程序运行后，单击窗体，输出结果是 【7】 。 Private Sub Form_Click() a = 3: b = 7 a = a + b : b = a – b : a = a - b Print a; b End Sub A) 4 3 B) 7 3 C) 3 7 D) 10 7 8．下面程序段所表示的数学关系式是 【8】 。 If (a < b) Then If d = c Then x = 1 Else x = 2 End If A) ? ??≠≥=<=)(2) c (1 d c b a d b a x 且且 B) ? ??≠<=<=)(2) c (1 d c b a d b a x 且且 C) ?? ?≥=<=)(2) c (1b a d b a x 且 D) ?? ?≠=<=) (2) c (1 d c d b a x 且 9．下列程序运行后，单击窗体，输出结果是 【9】 。 Private Sub Form_Click() s = 0: k = 1 Do s = s + k: k = k + 1 Loop Until k <= 5 Print s End Sub A) 15 B) 10 C) 1 D) 0 10．下列程序段的输出结果是 【10】 。 For k = 4 To 2 Step -2 m = k Next k Print m; k;

VB考试试题及答案

VB考试试题及答案

卷1 一、填空题 1、VB程序设计的主要特点是可视化设计和事 件编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对

VB测试卷及答案

VB期中测试卷 班级：学号：姓名： 一、判断题（1×10分） （1）VB是可视化的、面向对象的、采用事件驱动的结构化高级程序设计语言。 （2）VB的Double类型数据可以精确表示其数值范围内的所有实数。 （3）要使文本框出现垂直滚动条，只要将该文本框的ScrollBars属性设置为2就可以了。（4）执行“Unload Form1”语句后，窗体Form1消失，而且释放其所占的内存。 （5）同一个窗体文件只能用于一个工程中。 （6）xxx.vbp文件是用来管理构成应用程序xxx的所有文件和对象的清单。 （7）决定对象是否可见的属性是Visible属性，决定对象可用性的属性是Enabled属性。（8）在逻辑运算符Not、Or、And中，运算优先级由高到低依次为Not、Or、And。 （9）过程中的静态变量是局部变量，当过程再次被执行时，它的值是上一次过程调用后的值。（10）使用On Error GoTo语句并编写相应程序，可以捕获程序中的编译错误。 二、选择题（2×10分） 第1题：在设计模式双击窗体中的对象后，Visual Basic将显示的窗口是。 A、属性窗口 B、代码窗口 C、工具箱 D、工程窗口 第2题：Integer类型的变量可存的最大整数为______。 A、255 B、256 C、32768 D、32767 第3题：下列哪个函数返回值为Ascii码值？ A、Chr(x) B、Str(x) C、Space(n) D、Asc(x) 第4题：下列关于Select Case之测试表达式的叙述中，错误的是______。 A、只能是变量名 B、可以是整型 C、可以是字符型 D、可以是浮点类型 第5题：执行___语句后，执行语句“Text1.SelStart = 0 : Text1.SelLength = Len(Text1)”，可以使文本框控件Text1中的文本突出显示。 A、Text1.Enabled=True B、Text1.SetFocus C、Text1.Locked = False D、Text1.Move 第6题：设置命令按钮cm1的背景色为红色，可以执行语句。 A、cm1.BackColor=vbred B、cm1.BackColor = vbred: cm1.style=1

VB期末考试试题及答案

二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label

6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value 7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？ D 。 A、在标题项中输入&，然后打勾 B、在索引项中打 勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 A.Show B.Hide C.Load D.UnLoad 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 A.ControlBox B.MinButton C.MaxButton D.BorderStyle 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click

VB程序设计考试试题及答案

月考上机试题 一．选择题：(10*2) 1由单精度浮点型的数据组成的字节数是 A.2 B.4 C.8 D.16 2.可以同时删除字符串前导和尾部空白的函数是 A．Ltrim B．Rtrim C．Trim D．Mid 3.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 4.在窗体上添加如下命令按钮，然后编写如下事件过程：C Private Sub Command1 _ Click() Dim a(10)As Integer Dim 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.35 B.33 C.31 D.29 5.VB表达式Cos(0)+Abs(1)+Int(Rnd(1))的值是 A.1 B. -1 C. 0 D. 2 6.若m，x，y，均为Integer型变量，则执行下面语句后m值是m=1：X=2：Y=3 m=IIf(X＞Y，X+Y，X-Y) A.-1 B.0 C.1 D. 2 7.设a=″Visual Basic″，下面使b=″Basic″的语句是 A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 8.以下不能运行工程的操作是 A..执行"运行"菜单中的"启动"命令 B.单击工具栏中的"启动"命令 D.按下F5键 C.按下Ctrl+F5键 9.下列关于面向对象程序设计的叙述不正确的是 A.对象具有属性、方法等特性 B.对象之间的通信产生了消息 C.一个对象是一个软件构造块，它包含数据与相关的操作 D.对象的属性不能被改变 10.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Private Sub Command1 _ Click（） Static X As Integer Static Y As Integer Cls Y=l Y=Y+5 X=5+X Print X，Y End Sub 程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为: A.15 16 B.15 6 C.15 15 D.5 6 二．填空题（3*4） 1.计算1*2*3*...*3000，当积大于3000时停止计算。请在_______处将程序补充完整。 Private Sub FormClick() Dim t As Single,j As Integer J=1 For j=1 To 3000 ____t=t*j______________ If t＞3000 Then Exit For Next j Debug.Print j,t End Sub 2.下面程序运行后，输出的结果是_BBBB______。 For J= 1 To 10 A(J)=2*J B(J)=A(J)*2 Next J Print B(J/2+0.1) End 3.设有如下程序：程序运行后，单击窗体，则在窗体上显示的是6 5 4 3，请在_______处将程序补充完整。 Option Base 0 Private Sub Form _ Click（） Dim a Dim i As Integer a=Array(1，2，3，4，5，6，7，8，9) For i=0 To 3 Print a(5-i) Next i End Sub 三．编程题：（34*2） 1. 用随机函数产生10个不大于100的整数存入一维数组a中，并找出这组数中能被3整除余2的数赋值于数组b。点击开始按钮在窗体中显示数组a和数组b。

VB考试试题及答案分解

VB考试试题及答案分解

卷1 一、填空题 1、VB程序设计的主要特点是可视化设计和事 件编程。2、在VB中，最主要的两种对象是窗体 （form）和控件。 3、工程是构成应用程序文件的集合。 4、方法是VB提供的一种特殊子程序，用来完成一定的操作。 5、浮点类型数据包括单精度型和___双精度__数据。 6、事件是窗体或控件对象识别的__动作____。 7、可用窗体的__print_ 方法在窗体中显示文字。 8、复选框控件Value属性指示复选框处于____选中___或禁止状态(暗淡的)中的某一种。 9、在VB中，修改窗体的高度（height）和宽度（width）属性值，可改变窗体的大小。 10、双击工具箱中的控件图标，可在窗体的中央出现一个尺寸为缺省值的控件。 11、在MsgBox函数中，如果缺省title参数，则使用工程1 作为消息框的标题。 12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是34.6 。 13、在VB 中，数值型变量的初值为0 ，Varant型变量的初值 为空，布尔型变量的初值为FALSE 。 14、设置窗体的picture 属性，可在窗体上显示图片。 15、程序运行工程中，清除MP图片框中的图片应使用语句cls 。 二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、 Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句Select * Form student 中的*表 示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对

VB期末考试考卷及答案

VB期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 B 编写代码 C 设置属性 D 添加Active X控件 5. 下面控件中，没有caption属性的是（ B ） A 框架 B 组合框

C 命令按钮 D 复选按钮 6. 在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（ B ） A MultiLine B PasswordChar C Text D selText 7. 若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列关于过程叙述不正确的是（ D ） A 过程的传值调用是将实参的具体值传值传递给形参 B 过程的传址调用是将实参在内存的地址传递给形参 C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D 无论过程传值调用还是传地址调用，参数传递都是双向的 9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗 体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（ C ） A 在Form1的Load事件过程中加入语句Load Form2 B 在Form2的Load事件过程中加入语句Form2.Show C 在“过程属性”对话框中把“启动对象”设置为Form2

VB试题(附带答案)

VB试题 一、基本概念及基本操作 1、如果要向工具箱中加入控件和部件，可以利用"工程"菜单中的______命令。 A、引用 B、部件 C、工程属性 D、添加窗体 2、VB一共有设计、运行和中断三种模式，要使用调试工具应该______。 A、进入设计模式 B、进入运行模式 C、进入中断模式 D、不用进入任何模式 3、系统符号常量的定义可以通过______获得。 A、对象浏览器 B、代码窗口 C、属性窗口 D、工具箱 4、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是______。 A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 5、以下叙述中错误的是______。 A、用Shell函数可以调用能够在Windows下运行的程序

B、用Shell函数可以调用可执行文件，也可调用Visual Basic 的内部函数 C、调用Shell函数的格式应为：<变量名>=Shell(......) D、用Shell函数不能执行DOS命令 6、以下叙述中错误的是______。 A、在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件 B、以.BAS为扩展名的文件是标准模块文件 C、窗体文件包含该窗体及其控件的属性 D、一个工程中可以含有多个标准模块文件 以下不属于Visual Basic系统的文件类型是______。 A、.frm B、.bat C、.vbg D、.vbp 7、VB中窗体文件的扩展名是______。 A、VBP B、FRM C、VBW D、PDM 8、以下叙述中错误的是______。 A、打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 B、保存Visual Basic程序时，应分别保存窗体文件及工程文件 C、Visual Basic应用程序只能以解释方式执行 D、事件可以由用户引发，也可以由系统引发 9、以下叙述中错误的是______。 A、一个工程可以包括多种类型的文件

VB试题及答案

一、选择题（将答案写在答题卡内） 1．在Visual Basic中， Len("ABab河北")的值是（） A．4 B. 6 C. 8 D.12 2．在Visual Basic中，当窗体被装载时触发的事件是（） A．Unload B.ClickC.LoadD.DblClick 3．Visual Basic中决定对象是否可见的属性是（） A．Enabled B．See C. Name D.Visible 4．在Visual Basic中，语句Mid("ABCDEFG", 2, 3) = "123"的输出结果是（） A. False B. True C．A123EFG D. 123 5．下面Visual Basic表达式不合法的是（） A. "12"+12 B. "ab"+"12" C."ab"+12 D.Now+1 6．若要使命令按钮不可操作，要对()属性进行设制。 A.Enabled B.Visible C.BackColor D.Caption 7．VisualBasic是一种面向对象的可视化程序设计语言，采取了()的编程机制。 A.事件驱动 B.按过程顺序执行 C.从主程序开始执行 D.按模块顺序执行 8．在设计阶段，当双击窗体上的某个控件时，所打开的窗口是()。 A.工程资源管理器窗口 B.工具箱窗口 C.代码窗口 D.属性窗口 9．语句Abs(-6^2)+Int(-6^2)的输出结果是()。 A.0 B.1 C.-1 D.-72 10．String(6,"124abc")的值是()。 A.124abc B.111111 C.124 D.abc 11．设a=2,b=3,c=4,d=5，表达式a>bAND c<=d的值是()。 A.True B.False C.-1 D.1 12．函数CINT(4.5)的值是（） A.1 B.2 C.3 D.4 13．用于去掉字符串右边的空格的函数是 A.Ltrim( ) B.Rtrim( ) C.Left( ) D.Instr( ) 14．设置控件背景颜色的属性名称是（） A.Ltrim B.Backcolor C.Caption D.Load 15．应用程序设计完成后，应将程序保存，保存的过程是（） A．只保存窗体文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗体文件 D．先保存窗体文件（或标准模块文件），之后还要保存工程文件 16．任何控件都具有的属性是（） A．TextB．CaptionC．NameD．Forecolor 17．决定控件上文字的字体、字形、大小及效果的属性是（） A．TextB．CaptionC．NameD．Font

vb期末试卷及答案

Vb 选择题精选版（试题加答案） 一、选择题（1分×50=50分） 1. 下面正确的赋值语句是__（1）_____。 A. X + Y = 10 B. Y = π *R*R C. Y = X + 10 D. 2y = X 2. 当一个命令按钮的 （2） 属性设置为False 时，该按钮为灰白显示(不可用)。 A. Visible B. Enabled C. Backcolor D. default 3. 执行下列语句时，会出现出错提示的是 （3） 。 A. Print 32765+3 B. Print 32768+3 C. Print "56" + 56 D. Print 5+7=14 4. 如果要在菜单的两个菜单命令项之间加一条分隔线，可在标题文本框中键入一个 （4） 符号。 A.下划线 B.@ C .连字符（-） D.& 5. 下面哪一个是日期型常量 (5) 。 A ．"02/25/2005" B. #January 1,1993# C. "02/25/2005# D. #02/25/2005" 6. 要声明一个长度为8个字符的定长字符串变量str ，以下 (6) 语句是正确的。 （A ）Dim str As String （B ）Dim str As String (8) （C ）Dim str As String [8] （D ）Dim str As String *8 7. 在窗体的通用声明中可以用 （7） 语句定义变量。 A. Dim 、Private B. Dim 、Static C.Dim 、Public D . Dim 、Public 、Private 8. （8） 语句是专门用来为数组或对象集合中的每个元素重复执行一组语句而设置的。 A. Select-Case-End Select B. Do-Loop C. For-Next D. For Each-Next 9. 若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用__(9)___关键字在 该过程中定义局部变量。 A 、Dim B 、Private C 、Public D 、Static 10. 代数表达式y x e x +++327sin 对应的VB 表达式是 （10） 。 A. Sin(27)+Sqr(x+Exp3)/(x+y) B . Sin(27*3.14159/180)+Sqr(x+Exp(3))/Abs(x+y) C. Sin(27*3.14159/180)+Sqr(x+e^3)/Abs(x+y) D. Sin(27*π/180)+Sqr(x+Exp(3))/Abs(x+y) 11. 下列语句中，正确的是 （11） 。 A ． Text1.SetFocus B ．Form1.Clear C ．Label1. SetFocus D ．List1.Cls 12. 计时器控件表示时间间隔的属性是 （12） ，其单位为千分之一秒。 A. I nterval B. Click C. Timer D. Load 13. 如果选定列表框中的第三项，它的ListIndex 属性值是 （13） 。 A. 0 B. 1 C. 2 D. 3 14、在VB 中最基本的对象是__（14）__，它是应用程序的基石，是其它控件的容器。

兰州理工大学VB试卷的答案

试卷编号：8075 所属语言：Visual Basic 试卷方案：vb期末模拟练习 试卷总分：100分 共有题型：4种 一、程序填空共1题（共计20分） 第1题（20.0分）题号:530 '------------------------------------------------------- '【程序填空】 '------------------------------------------------------- '功能：有数列 1/5 + 1/9 + 1/13 + 1 / (1 + k * 4) (k<=100) ' 求前 100 项之和 '------------------------------------------------------- Private Sub Command1_Click() Dim s As Double Dim k As Integer '**********SPACE********** s = 【?】 '**********SPACE********** For k = 1 To 【?】 '**********SPACE********** s = s + 1 / (1 +【?】) Next k Print s End Sub 答案： =======(答案1)======= =======(答案2)======= 100 =======(答案3)======= k*4 =========或========= 4*k

二、程序改错共1题（共计20分） 第1题（20.0分）题号:480 '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目:下面函数的功能是：求变量s(s=a+aa+aaa+aaaa+……) ' 的值。其中，a是一个0-9的数字，总共累加a项。' 例如，当a=3时,s=3+33+333 (共累加3项)。 '------------------------------------------------ Option Explicit Public Sub Calc(a As Integer) Dim s As Long Dim t As Long Dim i As Integer s = a '**********FOUND********** t = 1 For i = 2 To a '**********FOUND********** t = t + a s = s + t Next i Calc = s Print s End Function Private Sub Command1_Click() Dim i As Integer i = InputBox("请输入数字（0-9）:") '**********FOUND********** Calc call i End Sub 答案： =======(答案1)======= t = a =======(答案2)======= t = t * 10 + a