vb阅读程序专题练习题2013

1.下列程序段运行后的输出结果是：

For i = 1 To 3

For j = 1 To i

For k = j To 3

m = m + 1

Next k

Next j

Next i

Print m

答案：14

2.在窗体上有一个名称为Drive1的驱动器列表框(当前驱动器为C:)，一个名称为Dir1的目录列表框(当前目录如图)，一个名称为Text1的文本框和一个标题为“显示”，名称为Command1的命令按钮，设计阶段如图所示。然后编写如下的两个事件过程：Private Sub Command1_Click()

Dir1.Path = "e:\图片"

End Sub

Private Sub Dir1_Change()

Text1.Text = Drive1.Drive

End Sub

则程序运行后，单击命令按钮，文本框中显示的内容为：

答案：c:

3.在名称为Form1的窗体上有一个框架，名称为Frame1，标题为“三大火炉”，在框架中有一个名称为Opt1的单选按钮控件数组，其包含3个单选按钮，Index值从0到2，标题分别为“南京”，“重庆”，“武汉”，还有一个名称为Text1的文本框(内容为空)和一个名称为Cmd1，标题为“确定”的命令按钮，如图所示。本窗体有如下的两个事件过程：

Private Sub Cmd1_Click()

Opt1(1).Value = 1

End Sub

Private Sub Opt1_Click(Index As Integer)

Text1.Text = "三大火炉之一" &

Opt1(Index).Caption

End Sub

程序运行后，单击命令按钮，则文本框中显示的结果是：

答案：三大火炉之一重庆

4.在名称为Form1的窗体上有一个名称为Text1的文本框和3个命令按钮，名称分别为Cmd1、Cmd2、Cmd3，标题分别为“文字1”、“文字2”、“文字3”，如图所示。本窗体有如下3个事件过程：

Private Sub Cmd1_Click()

Text1.Text = "计算机"

End Sub

Private Sub Cmd2_Click()

Text1.Text = "电脑"

End Sub

Private Sub Cmd3_Click()

Cmd2_Click

End Sub

则程序运行后，单击Cmd3命令按钮，文本框中显示的内容是：

答案：电脑

5.在名称为Form1的窗体上有一个名称为List1的列表框和1个名称为Cmd1，标题为“添加”的命令按钮。且本窗体有如下的两个事件过程：

Private Sub Form_Load()

List1.AddItem "AAA"

List1.AddItem "BBB"

End Sub

Private Sub Cmd1_Click()

List1.AddItem "DDD", 1

List1.AddItem "EEE", 1

End Sub

运行后的界面如下图所示，当单击命令按钮后，列表框中显示的内容是：

答案：

AAA

EEE

DDD

BBB

6.在窗体上有一个命令按钮，然后编写以下事件过程：

Private Sub Command1_Click()

Dim n As Integer, m As Integer

m = 15

If m \ 2 = m / 2 Then

n = m / 3

Else

n = m / 5

End If

If m Mod 3 = 0 Then

n = m / 2

End If

Print n

End Sub

程序运行后，单击命令按钮，输出结果是：答案：8

7.以下程序段运行后，输出的结果为：Dim i, k, a(5), p(2)

k = 5

i = 0 To 5

a(i) = i

Next i

For i = 0 To 1

p(i) = a(i * (i + 1))

Next i

for i = 0 To 1

k = k + p(i) * 2

Next i

Print k

答案：9

8.在窗体上有一个名称为Command1，标题为“确定”的命令按钮和一个名称为Text1的文本框(内容为空)，

如图所示。然后编写如下事件过程：Private Sub Command1_Click()

n = Val(Text1.Text)

For i = 5 To n

For j = 2 To i-1

If i Mod j = 0 Then Exit For

Next j

If j=i Then Print i;

Next i

End Sub

程序运行后，在文本框中输入10，然后单击命令按钮，窗体上显示的是：

答案：5 7

9.执行下列程序段后，输出结果为：

a = 1:

b = 1:

c = 1

Do While a + b + c <= 10

a = a + 1

b = b * 2

c = b / 2

Loop

Print a; b; c

答案：4 8 4

10.在窗体上画一个名称为Command1的命

令按钮，然后编写如下事件过程：Private Sub Command1_Click()

Dim s As Integer, i As Integer

s = 0

i = 6

Do

s = s + i

i = i + 1

Loop While i <= 5

Print s;i

End Sub

程序运行后，单击命令按钮，窗体上显示的是：

答案：6 7

11.编写命令按钮的Click事件过程代码：Private Sub Command1_Click()

For n = 1 To 4

Print Tab(2 * n + 2);

For m = 1 To 4

Print Spc(1); "*";

Next m

Print

Next n

End Sub

程序的执行结果是：

答案：

* * * *

* * * *

* * * *

* * * *

12.下列程序段运行后，输出结果为：

a=1

b=2

s=0

For i=10 To 6 Step -2

s=s+a

c=a+b

a=b

b=c

Next i

Print s

答案：6

13.执行下列程序段后，输出结果为：x = 2

y = 1

z = 2

If z = x Then y = x: x = 4: z = x

Print x; y; z

答案：4 2 4

14.有如下的程序：

Private Sub Command1_Click() m = "1234"

For n = 1 To 4

Print Tab(5 - n); Right(m, n) Next n

End Sub

程序运行后的输出结果是：答案：

4

34

234

1234

15.编写窗体的Click事件过程代码：Option Base 1

Private Sub form_Click()

Dim i As Integer, j As Integer, t As Integer Dim a

A=array(34,67,23,98,11)

For i = 1 To 4

For j = i + 1 To 5

If a(i) < a(j) Then

t = a(i)

a(i) = a(j)

a(j) = t

End If

Next j

Next i

For i = 1 To 5

Print a(i);

Next i

End Sub

程序运行后，单击窗体，输出结果为：答案：98 67 34 23 11

16.以下程序段运行后，输出的结果为：m = 1

For k = 3 To 1 Step -1

x$ = String$(k, "*")

Print m; x$

m = m + 1

Next k

答案：

1 ***

2 **

3 *

17.在窗体上有一个名称为List1的列表框和1个名称为Text1的文本框，然后编写如下两个事件过程：

Private Sub Form_Load()

List1.AddItem "325"

List1.AddItem "234"

List1.AddItem "163"

List1.AddItem "537"

Text1.Text = ""

End Sub

Private Sub List1_DblClick()

a = List1.Text

Print a + Text1.Text

End Sub

运行后，在文本框中输入“432”（如下图所示），然后双击列表框中的“234”，则输出结果为：

答案：234432

18.在窗体上有一个名称为Combo1的组合框和一个名称为Command1，标题为“删除”的命令按钮，组合框在设计阶段已添加6项内容，如图所示：然后编写如下事件过程：

Private Sub Command1_Click()

For i = 1 To 3

Combo1.RemoveItem i

Next i

End Sub

程序运行后，单击删除按钮，组合框的内容为：

答案：

AAA

CCC

EEE

19.在窗体上有一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

x = 0

n = InputBox("")

For i = 1 To n

For j = 1 To i

x = x + 1

Next j

Next i

Print x

End Sub

运行后，单击命令按钮，如果从InputBox对话框中输入3，则在窗体上显示的内容是：

答案：6

20.在窗体上有一个名称为Command1的命

令按钮，然后编写如下事件过程：Private Sub Command1_Click()

Dim i As Integer, x As Integer

For i = 1 To 5

If i = 1 Then x = i

If i <= 3 Then

x = x + 1

Else

x = x - 1

End If

Next i

Print x

End Sub

运行后，单击命令按钮，其输出结果为：

答案：2

21.在窗体上有一个名称为Combo1的组合框和一个名称为Command1，标题为“确定”的命令按钮，组合框在设计阶段已添加5项内容，如图所示：然后编写如下事件过程：

Private Sub Command1_Click()

Combo1.ListIndex = 2

Print Combo1.Text

Print Combo1.List(Combo1.ListIndex)

End Sub

VB程序填空复习题

二级VB程序设计练习 程序填空 1．下面程序按每行10个数打印出30个介于-300到300间无重复的随机整数，并显示其中的最小值。数组b(30)存放所产生的无重复的随机整数，运行结果如图所示。 Private Sub Command1_Click() Dim b(30), j As Integer, k As Integer Dim y As Integer, x As Single, min As Integer For j = 1 To 30 lb: x = Rnd If x > 0.5 Then y = 1 Else y = -1 b(j) = y * Int(Rnd*301) k = 1 Do While k

If b(j) = b(k) Then Goto lb k = k + 1 Loop Print b(j); If j Mod 10=0 Then Print Next j min = b(1) For j = 1 To 30 If b(j) < min Then min=b(j) Next j Print min End Sub 2．下面程序用于对9位的号进行校验。参数mno存放号，mjy存放产生的校验位，tag判断校验正确否，若校验正确tag置1，否则为0。产生校验位的算法为：取号右边的8位之和关于9的模作为校验值，号最左边的一位为校验位。 Public Sub foe(ByVal mno As String, mjy As Integer, Tag As Integer) Dim msum As Integer, m As String msum = 0 for j=2 to 9 m = Mid(mno, j, 1)

《VB程序设计》习题答案-林卓然编著

《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y)

VB程序题

VB程序设计结构：顺序结构、分支结构、循环结构。 一、顺序结构题： 二、分支结构： IF <条件> Then <语句组1> Else <语句组2> Endif IF <条件> Then <语句组> Endif 答案：1、a=6 b=5 2、Value=60 3、a=9 4、a=9:b=7 5、a=7 b=9 1、以下程序段的执行结果是? A=1 b=5 c=4 a=b b=c c=a Print a;b;c 2、该程序段运行后， 变量b的值为? a=7 b=8 a=a+b b=a-b 当条件满足时，执行语句组1 当条件不满足时，执行语句组2 执行完语句组1或语句组2后执行 Endif下面的语句。 4、该程序段运行后，变量a的值 为? a=8 b=7 z=a a=b b=z 5、经过几下几条语句，A和B的值分别为多少？ A=6 B=7 C=A A=B B=C 6、Text1和Text2中分别输入5，6， 求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z 当条件满足时，执行语句组，接着执行Endif下面的语句。 当条件不满足时，执行Endif下面的语句。 1 、以下程序段的执行结果为？ A=5 B=6 If A=10 Then Value=5*x Else Value=4*x End If Select case 表达式

VB程序设计习题

练习一 一、选择题 1、下面列出的程序设计语言中（A ）是面向问题的语言。 A、机器语言 B、汇编语言 C、高级语言 D、0、1二进制语言 解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（D ）不属于VB 6.0的版本。 A、学习版 B、专业版 C、企业版 D、共享版 解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题 1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。 3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。 练习二 一、选择题 1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue D、Forma1′s Backcolor is vbBlue. 2、下面方法中，不能打开编码编辑器的是（D） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。 C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（Ａ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件 C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题 1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或键运行程序。 练习三 一、选择题 1、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（Ｃ） A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口 2、新建一个工程，将其窗体的名称属性设置为MyFirst，则默认的窗体文件名为（Ｃ） A、Form1. frm B、工程1. frm C、MyFirst.frm D、Form1.vbp 3、下列叙述中正确的是（C） A、只有窗体才是VB中的对象 B、只有控件才是VB中的对象 C、窗体和控件都是VB中的对象 D、窗体和控件都不是VB中的对象 解释：窗体时ＶＢ中最常见的对象，而控件是ＶＢ中预先定好的、程序中能够直接使用的对象。 4、设置窗体最小化时的图标可通过（A ）属性来实现。 A、MouseIcon B、BackStyle C、Icon D、Picture 5、设置标签边框的属性是（ B ） A、BorderStyle B、BackStyle C、AutoSize D、Alignment 6、文本框没有（ D ）属性。 A、Enable B、Visible C、BackColor D、Caption 7、下列操作中不能触发命令按钮的Click事件的是（ B ） A、在按钮上单击鼠标左键 B、在按钮上单击鼠标右键 C、把焦点移至按钮上，然后按回车键 D、使用该按钮的快捷键

《VB程序设计》考试题型练习 答案

《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0)

VB编程题目及答案

1.输入3个数，输出最大的数 2.有一元二次方程：aX2+bX+c=0，依次输入a，b，c，判断此方程是否有实根 3.输入一个百分制的成绩，若大于等于60，则用消息框弹出，显示“恭喜！成绩通过！”， 若小于60，则弹出消息框，显示“抱歉！成绩没有通过！” 4.输入一年份，判断它是否为闰年，并显示有关信息。（判断闰年的条件是：年份能被4 整除但不能被100整除，或者能被400整除） 5.输入学生的百分制成绩，转换输出为五级制成绩，90～100分转换为优秀，80～89转换 为良好，70～79转换为中等，60～69转换为及格，0～60转换为不及格。 6.随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。例如，产生 246，输出是642。 7.输入两个整数，求它们的最大公约数。 8.编程求200--400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数， 则只能加一次。。 9.计算100~300之间所有能被3和7整除的数之和 10.分别统计1-100中，满足3的倍数、7的倍数的数各有多少。 11.某次歌曲大奖赛，有7个评委。如果分别输入7个评委对某个参赛者的打分数，按照去 掉一个最高分和一个最低分的计算办法，求出该参赛者的平均得分。 12.输入一串字符，统计其中字母A(不区分大小写)出现的次数。 13.我国目前有13亿人口，按人口年增长率0.8%计算，多少年后我国人口将超过26亿。 14.小猴有桃若干，第一天吃掉一半多一个；第二天吃剩下桃子的一半多一个；以后每天都 吃尚存桃子的一半多一个，到第7天只剩一个，问小猴原有桃多少？ 15.求100以内的素数 16.百元买百鸡问题。假定小鸡每只5角，公鸡每只2元，母鸡每只3元，编程求解购鸡方 案。 17.编程求斐波那契数列前11项。（斐波那契数列：F(0)=f(1)=1, F(n)=F(n-1)+F(n-2) n>=2 ） 18.将输入的字符串以反序显示。例如：输入“ASDFGT”，显示“TGFDSA” 19.随机产生10个[30,100]内的整数，求最大值及所对应的下标 20.随机产生10个[30,100]内的整数，求最大值、最小值和平均值。 21.随机产生10个[30,100]内的整数，求最小值及所对应的下标。 22.随机生成一个整型的二维数组，范围在[10,20]之间，以下三角形式输出该数组。 23.随机产生10个1~100的正整数放入数组，显示产生的数，求最大值、最小值、平均值。 24.利用随机函数生成一个4×4的矩阵(即二维矩阵),范围是[20,50]内的整数,输出该矩阵所 有数据之和 25.已知有序数组a()，编程插入x（x的值为14）。数组a中的元素分别为{12，6，4，89， 75，63，100，20，31}。 26.编写一函数，计算Double类型一维数组所有元素的平均值。 27.用函数过程求表达式1+1/2+1/3+1/4+…+1/n的和. 28.编一子过程ProcMin,求一维数组a中的最小值，子过程的形参自己确定。 29.编一个函数，求一维数组a中的最大值，函数的形参自己确定。 30.编写一个过程计算并输出区间[100，1000]内所有素数的和(要求判断素数使用过程（函 数或子过程）来实现。调用该过程。(提示：只能被1和自身整除的自然数称为素数。) (注：本答案第一行代码应在题目之后，自行调整)

vb程序阅读题与填空题

VB程序阅读题与程序填空题综合练习 1、阅读下面程序，当单击窗体之后，窗体上输出的是。 Private Sub Form_Click( ) Dim i As Integer, j As Integer Dim k As Integer k=0 For i = 0 To 10 Step 3 For j = 1 To 10 If j > = 5 Then i = i +4: Exit For j = j + 1 k = k + 1 Next If i > 8 Then Exit For Next Print k End Sub 2、阅读下面的事件过程。单击窗体后，在文本框Text1和Text2中显示的内容分别 是和；若将程序中A语句与B语句的位置互换，再次执行程序，单击窗体后在Text1和Text2中显示的内容分别是和。 Private Sub Form_Click( ) Dim x As Integer, y As Integer x = 1 : y = 0 Do While x < 3 y = y + x 'A语句 x = x + 1 'B语句 Loop Text1.Text = x Text2.Text = y End Sub 3、下面程序段中，k循环共执行次，在窗体上显示的结果是。 Dim b As Integer, k As Integer b = 1 For k =1 To 5 b = b * k If b > = 15 Then Exit For Else

k = k + 1 End If Next k Print k, b 4、以下是按钮cmdl的Click事件过程，求1~100之间的所有质数。质数的个数显示在窗 体上，在划线处填上缺少的内容。 Private Sub cmdl_Click( ) Dim intNum As Integer, int1 As Integer, int2 As Integer intNum = 0 For int1 = For int2 = 2 To int1 \2 If (int1 Mod int2) = 0 Then intNum=1 End If Next If sNum = sNum + 1 End If Next Print End Sub 5、若命令按钮的名称为CmdExit，程序要求单击以上命令按钮时，程序停止运行。请在画线处中填入适当的内容。 Private Sub CmdExit_ ( ) End Sub 6、下面的事件过程判断文本框txt1中输入的数所在区间，并在文本框txt2中输出判断结果。在画线处填入正确的内容。 Private Sub Comandl_Click( ) Dim int1 As Integer int1 =val (txt1.Text) Select Case int1 Case txt2.Text = "值为0" Case txt2.Text = "值在1和10之间（包括1和10）" Case txt2.Text = "值大于10"

[整理]VB程序设计复习题及答案.

中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型

VB--过程练习题

《Visual Basic 程序设计》寒假作业 一、选择题 1．要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是_______。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 2．在过程调用中，参数的传递可以分为按值传递和_______两种方式。 A．按参数传递 B．按数值传递 C．按地址传递 D．按位置传递 3．Sub过程与Function过程最根本的区别是_______。 … A． Sub过程可以直接使用过程名调用，而Function过程不可以 B． Function过程可以有参数，而Sub过程不可以 C．两种过程参数传递方式不同 D． Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 4．在参数传递过程中，使用关键字_______来修饰参数，可以使之按值传递。 A． ByVal B． ByRef C． Value D． reference 5．可以执行“工具”菜单中的_______命令来建立通用过程。 A．添加过程 B．通用过程 C．添加模块 D．添加窗体 】 6．假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是_______。A，2 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 7. 在窗体上添加一个名称为Command1的命令按钮，再添加两个名称分别为Label1、Label2的标签，然后编写如下程序代码： Private x As Integer Private Sub Command1_Click() a = 6: b = 4 Call sub1(a, b) = a ： = b End Sub Private Sub sub1(ByVal x As Integer, ByVal y As Integer) a = x * x b = y * y End Sub 程序运行后单击命令按钮，则两个标签中显示的内容分别是_______。

vb程序设计试题(含答案)

第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C )

VB 程序阅读题

(三) 五、阅读分析程序，选择结果（每小题4分，共20分） 1、运行程序后，单击窗体，窗体上输出的结果是（） Private Sub Form_Click() Dim s As String , t As String s=”” st=Text1.Text For k=Len(st) To 1 Step -1 If k=Len(st) Then s=s+Mid(st,k,1) Else s=s+”_”+Mid(st,k,1) End If Next k Label1.Caption=s End Sub (A) (B) (C) (D) ??2、在窗体上放置一个命令按钮，然后编写如下事件过程。运行后，单击命令按钮，输出结果为（） Sub S(x As Single , y As Single) t = x x= t /y y= t Mod y End Sub Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=2 Call S(a,b+2) Print a , b End Sub (A) 5 4 (B)1 1 (C)1.25 4 (D)1.25 2 3、对窗体编写如下事件过程，程序运行后，单击鼠标右键，则输出结果为（） Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single ,Y As

Single) If Button=2 Then Print “AAAAA” End If End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer, X As Single ,Y As Single) If Button=2 Then Print “BBBBB” End If End Sub (A) AAAAA(B) BBBBB (C) AAAAA (D) BBBBB BBBBB AAAAA 4、下面程序运行后输出的图形是（） Private Sub Form_Click() Const angle=3.14159/180 For i=0 To 360 Step 30 X1=1000+900*Cos(angle*i) Y1=1000+900*Sin(angle*i) X2=1000+500*Cos(angle*i) Y2=1000+500*Sin(angle*i) Line(x1,y1)-(x2,y2) Next i Circle (1000,1000),480 End Sub (A) (B) (C)( D) 5、单击命令按钮Command1后，窗体上显示的运行结果为（） Private Sub Commad1_Click() Dim a(10) As Integer Dim p(3) As Integer 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) 28

VB程序设计期末复习题

《V i s u a l B a s i c程序设计》期末复习题 一、单项选择题 1．Visual Basic是一种面向对象的可视化编程语言，采取了（）的编程机制。 A．按过程顺序执行B．从主程序开始执行 C．事件驱动D．按模块顺序执行 2．与传统的设计语言相比，Visual Basic最突出的特点是（） A．程序开发环境B．结构化程序设计 C．程序调试技术D．事件驱动的编程机制 3．将调试通过的工程经“文件”菜单的“生成.exe文件”编译成.exe后，将该可执行文件拿到其它机器上不能运行的主要原因是（）。 A．缺少.frm窗体文件B．该可执行文件有病毒 C．运行的机器上无VB系统D．以上原因都不对 4. Visual 集成开发环境有三种工作模式，下列不属于三种工作模式之一的是（）。 A．设计模式B．编写代码模式 C．执行模式D．中断模式 5．后缀为.bas的文件表示（）。 A．工程文件 B．窗体文件 C．窗体二进制数据文件 D．标准类模块文件 6．工程文件的扩展名是（）。 A．.vbp B．.frm C．.bas D．.frx 7．刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是（）。 A．时钟控件B．图像框C．框架D．通用对话框 8.以下叙述中错误的是（）。 A．一个工程中可以包含多个窗体文件 B．在设计Visual Basic程序时，窗体、标准模块、类模块等需要分别保存为不同类型的文件 C．在一个窗体文件中用Private定义的通用过程能被其它窗体调用 D．全局变量必须在标准模块中定义 9．要在窗体Form1内显示“欢迎您！”，使用的语句是（） A．="欢迎您!" B．="欢迎您!" C．Form. print "欢迎您!" D． "欢迎您!" 10．决定标签内显示内容的属性是（） A．Name B．Text C．Caption D．Alignment 11．要设置命令按钮的背景图形，必须设置的两个属性是（） A．Caption和Picture B．Style和Picture C．Style和Icon D．Value和Icon 12．将数据项“China”添加到列表框List1中成为第一项，应使用的语句是（）A．"China" B．"1,China" C．"China",0 D．"China",1 13．在VB中，下列各项合法的变量名是（）。 A．Integer B．ab-c C．2abc D． a_bc 14．在VB中，下列合法的变量名是（）

vb练习题及答案.doc

vb 练习题及答案 【篇一：vb 习题(含答案)】 lass=txt>1 、vb 程序中，通常不会产生错误提示的是( )。（1 分） a、编译错误 b、逻辑错误 c、运行时错误 d、实时错误 2、在设计阶段，双击窗体上任一空白处，打开的窗口是( )。（1 分） a、工程资源管理器窗口 b、代码窗口 c、工具箱窗口 d、属性窗口 3、下列说法中，正确的说法是( )。（1 分） a、窗体名称和该窗体文件名必须一致 b、窗体名称和该窗体文件名 可以不相同 c、窗体名称和该窗体文件名不能使用汉字 d、窗体名称不能使用汉字、但该窗体文件名能使用汉字 4、visual basic 有完备的help 联机帮助功能，可以通过按下功能 键( )得到帮助。（ 1 分） a、f9 b 、f8 c、f1 d 、f5 5、以下( )控件可作为容器使用。（ 1 分） a、label b 、picturebox c、textbox d 、image 6、将窗体的boderstyle 属性设置为( )可使窗口不显示标题栏。（ 1 分） a、0 b 、1 c、2 d 、5 7、文本框没有( )属性（1 分） a、text b 、name c、caption d 、borderstyle 23、下列( )是不合法的常量。（ 1 分） a、100 b 、10e02 c、100.0 d 、10e0.5 24、下列对变量的定义中，定义x 为变体型变量的是( )。（1 分） a、dim x as double b 、dim x c、dim x! d 、x%=23

25、设有如下变量声明：dim testdate as date ，为变量testdate 正确赋值的表达方式是( )。（1 分） a、textdate=#1/1/2002# b 、testdate=#1/1/2002# c、textdate=date(1/1/2002) d 、 testdate=format(m/d/yy,1/1/2002) 26、在立即窗口中运行以下语句，a=beijing :b=shanghai :print a,b 对其输出结果的描述中，正确的是( )。（1 分） a、beijing 和shanghai 中间没有空格 b、beijing 和shanghai 中 间有1 个空格 c、beijing 和shanghai 中间有 6 个空格 d、beijing 和shanghai 前面有7 个空格 27、语句段a=3: b=5:t=a ：a=b: b=t 执行后( )。（1 分） a、a 值为3，b 值为3 b 、a 值为3，b 值为5 c、a 值为5，b 值为5 d 、a 值为5，b 值为3 28、下列语句中，正确的是( )。（1 分） a、if x3*y and xy then y=x^3 b 、if x3*y and xy then y=3x c、if x3*y : xy then y=x^3 d 、if x3*y and xy then y=x**3 29、下面程序段dim x%: x=5: if x then y=x+1 else y=x 运行后， y 结果是( )。（1 分） a、5 b 、6 c、1 d 、显示出错信息 30、执行语句 a = inputbox(today, tomorrow, yesterday, 5, 5) ， 将显示一个输入对话框，在对话框的输入区中显示的信息是( )。（1 分） a、today b 、tomorrow c、yesterday d 、5 31、窗体上有一个命令按钮command1, 编写如下事件过 程: private sub command1_click() :x = val(inputbox(x=)) : y = inputbox(y=) : print x + y : end sub, 单击命令按钮，先后在两个输 入对话框中输入123 和321 ，窗体显示的内容是( )。（1 分） a、444 b 、123321 c、123+321 d 、出错信息 32、执行语句msgbox aaa, 2, bbb 后，所产生的消息框的标题是 ( )。（1 分） a、aaa b 、bbb

VB程序设计 试题与答案-1

《VB程序设计基础》试题 一、选择题：（每空 2 分，共 20 分） 1. 与传统的程序设计语言相比,Visual Basic最突出的特点是___________。 A. 结构化程序设计 B. 程序开发环境 C. 事件驱动编程机制 D. 程序调试技术 2. Visual Basic 是一种面向对象的程序设计语言，构成对象的三要素是________。 A. 属性、事件、方法 B. 控件、属性、事件 C. 窗体、控件、过程 D. 窗体、控件、模块 3. 窗体模块保存在一个扩展名为__________的文件中。 A. bas B. vbp C. vbg D. frm 4. 下面正确的赋值语句是_________。 A. x+y=30 B. y=π*r*r C. y=x+30 D. 3y=x 5. 设S=“492”，表达式Right（S,1）+Left（S,1）+Mid（S,2,1）的值为__________。 A.“492” B.“249” C.“294” D.“429” 6. 将数学表达式a≤b≤c写成Visual Basic表达式，正确的是__________。 A. a<=b<=c B. a<=b Or b<=c C. a<=b And b<=c D. a<=b Not b<=c 7.为了把焦点移到文本框，所使用的方法是___________。 A. SetFocus B.Visible C.Refresh D.GetFocus 8. INT（100*RND）产生的随机整数的闭区间是_____________。 A.[0，100] B.[1，100] C.[1，99] D.[0，99] 9. 一个数组说明为Dim a(0 to 5，1 to 5) As Integer，则该数组共有_________个 元素。 A. 5 B. 36 C. 30 D. 不确定 10. 下面过程定义语句合法的是____________。

vb程序填空题

三、填空题 1、【程序说明】 下列程序显示所有3个数码各不相同的3位数，要求按紧凑格式每行显示15个数，并统计有多少个这样的三位数。 Private Sub Form_Click() Dim n As Integer, a As Integer, b As Integer, c As Integer Dim x As Integer For a =0 to 9 '个位数数码 For b = 0 To 9 '十位数数码 For c = ----1---- If a<>b And b<>c And a<>c Then x =a+10*(b+10*c) n = ----2---- ----3---- If n mod 15 = 0 Then Print End If Next c,b,a Print "总共有这样的三位数"; n; "个" End Sub 1、1 to 9 2、n+1或1+n 3、print x; 2、【程序说明】简单 窗体是密码检验程序。程序运行时，用户在文本框输入密码，单击确定按钮对密码进行检验。密码正确后，标签label2显示“密码正确”；若密码不正确，标签显示“密码错误”，若密码输入错误达3次，将自动退出程序。 Private Sub Command1_Click() '确定按钮 Static n As Integer ---const-1----mypwd As String = "123456" '预设密码为自定义常量 n = n + 1 Label2.Visible = True If ---__ text1.text=mypwd____ ---- Then Label2.Caption = "密码正确" Else If n < 3 Then Label2.Caption = "密码错误！" Text1.Text = "" Else --end--3---- End If End If End Sub 1、CONST 2、Text1.text=mypwd或mypwd=text1.text或Text1=mypwd或mypwd=text1

VB程序设计复习题

《VB程序设计》复习题 一、选择题 1.改变控件在窗体中的上下位置，应修改控件的__A_____属性 A .Top B. Left C.Width D. Right 2.将通用对话框类型，设置为字体对话框，可修改该控件的____D_____属性 A. font B. filename C. filter D. action 3.标签控件最重要的属性是__A______ A. caption B. text C. name D. width 4.文本框中选定的内容，由下列____C_____属性反映。 A. Text B.Caption C. Seltext D. sellenght 5.选中复选框控件时，value属性的值，可以是_ D______ A.true B. false C. 0 D.1 6.设置列表框选中的文本用____D____属性 A. selected B. caption C. text D. list 7.简单组合框的style值为____B_____ A .0 B. 1 C. 2 D. 3 8.在文件列表框的实现文件的多重选择，应修改该控件的___D______属性 A. filename B. pattem C. path D. multiselect 9.语句listl.removeitem 1 将删除list.listindext等于___D______的项目。 A. 0 B. 2 C. 3 D. 1 10.计时器的interval属性为0时，表示____A_____。 A. 计时器失效 C. 相隔0 毫秒 B. 相隔0秒 D. 计时器的enable属性为false 11.以下的vb 常量中非法的是(B) a. “Good Luck” b. PI c. 1.5E-03 d. 16.3412 12.要想返回文本框中输入的内容则可利用其( B )属性进行编程 a.caption b. text https://www.wendangku.net/doc/6515684807.html, d. righttoleft 13.下列不能用commondialog 控件调用的对话框是( D) a. open/save b. help c. font d. search 14.vb 应用程序是分层管理的,其最高的层次为( A) a. 工程 b. 模块 c. 窗体 d. 过程

程序的设计语言VB单项选择题与答案

《程序设计语言VB》单选题 1. Visual Basic是一种面向（）的程序设计语言。 A. 用户 B. 事件 C. 程序 D. 对象 2. 在Visual Basic6.0中规定工程文件的扩展名是（）。 A. vbp B. for C. frm D. bas 3. Visual Basic6.0中规定窗体文件的扩展名是（）。 A. for B. frm C. vbp D. bas 4. 如何使一个标签或按钮控件在运行时不可用（）。 A. 把它的Visible属性设置成False B. 把它的Visible属性设置成True C. 把它的Enabled属性设置成False D. 把它的Enabled属性设置成True 5. 控件的字体可在属性窗口的（）属性中调整？ A. Font B. Color C. Text D. Caption 6. 若要将某命令按钮设置为默认命令按钮。则应设置为True的属性是（）。 A. Value B. Cancel C. Default D. Enabled 7. 在VB中，记录对象数据的是（）。 A. 方法 B. 事件 C. 属性 D. 语句 8. 在文本框上显示文本的属性是（）。 A. Value B. Text C. Print D. Enabled

9. InputBox函数返回值的类型为（）。 A. 字符串 B. 数值 C. 变体 D. 数值或字符串（视输入的数据而定） 10. 设有语句：a = InputBox("请输入数值:","输入示例", "100") 程序执行后,若从键盘上输入数值20并按回车键,则变量a的值是（）。 A. 字符串"20" B. 字符串"120" C. 默认值100 D. 数值120 11. 下列控件中可用于接受用户输入文本，又可用于显示文本的是（）。 A. Label控件 B. TextBox控件 C. Timer控件 D. CommandButton控件 12. 语句PRINT "25*4"的输出结果是（）。 A. 25*4 B. "100" C. 100 D. 出现错误信息 13. 只能用来显示字符信息的控件是（）。 A. 文本框 B. 标签框 C. 图片框 D. 图像框 14. 下列可作为Visual Basic变量名的是（）。 A. A%A B. 4A C. ?xy D. Stemp 15. 下列哪个符号不能作为VB中的变量名（）。 A. timefly B. pass4 C. min4max D. R[8] 16. 在窗体内声明的变量是（）。 A. 局部变量 B. 模块变量 C. 公共变量 D. 任意变量 17. 语句Dim x As Integer作用是:将x定义为（）变量。 A. 单精度型 B. 整型