VB程序设计练习题及参考答案

Visual Basic程序设计练习题

一、填空题

1．当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择菜单的选项，使“工具箱”窗口显示。

2．当对命令按钮的Picture 属性装入 .bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对属性设置为1（Graphical）。

3．在文本框中，通过属性能获得当前插入点所在的位置。

4．要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置属性为True。

5．在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的属性的值设置为。

6．在VB中，1234、123456＆、1.2346E+5、1.2346D+5四个常数分别表示、、、。

7．整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是。

8．表示x是5的倍数或是9的倍数的逻辑表达式为。9．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是。

10．Int(-3.5)、Int(3.5)值分别是、。

11．表达式Ucase(Mid("abcdefgh",3,4))的值是。

12．要使下列For语句循环执行20次，循环变量的初值应当是：

For k = to -5 Step -2

13．下面程序段显示个“*”。

For i = 1 To 5

For j = 1 To i

Print "*";

Next j

Next i

14．复选框属性设置为2－Grayed时，变成灰色，禁止用户选择。15．属性设置为1，单选按钮和复选框的标题显示在左边。

16．属性设置为1，单选按钮和复选框以图形方式显示。

17．在程序运行时，如果将框架的属性设为False，则框架的标题呈灰色，表示框架内的所有对象均被屏蔽，不允许用户对其进行操作。

18．列表框中项目的序号是从开始的。

19．表示列表框中最后一项的序号。

20．方法可清除列表框的所有内容。

21．组合框是组合了文本框和列表框的特性而形成的一种控件。风格的组合框不允许用户输入列表框中没有的项。

22．VB程序存贮在模块中，模块分有__________ 、__________ 和___________ 三种类型。

23．如果要每隔15秒产生一个Timer事件，则Interval属性应设置为。24．函数将返回系统的时间。

25．菜单的热键指使用键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个符号，在菜单中这一字符会自动加上，表示该字符是一个热键字符。

26．如果在建立菜单时在标题文本框中输入一个“”，那么菜单显示时形成一个分隔线。

27．在Visual Basic中，提供、、三种键盘事件，窗体和接受键盘输入的控件都识别这三种事件。

28．大多数控件能够识别鼠标的、和事件，通过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化做出响应操作。

二、选择题

1．Visual Basic是一种面向对象的可视化程序设计语言，采取了的编程机制。

A．事件驱动B．按过程顺序执行C．从主程序开始执行D．按模块顺

序执行2．在Visual Basic中最基本的对象是，它是应用程序的基石，是其他控件的容器。

A．文本框B．命令按钮C．窗体D．标签3．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把指定为启动窗体。

A．不包含任何控件的窗体B．设计时的第一个窗体

C．包含控件最多的D．命名为Frm1的窗体

4．若有程序代码如下：

text1.text="Visual Basic"

则：text1，text和"Visual Basic" 分别代表。

A．对象，值，属性B．对象，方法，属性

C．对象，属性，值D．属性，对象，值

5．Visual Basic是一种面向对象的程序设计语言，不是面向对象系统所包含的三要素。

A．变量B．事件C．属性D．方法6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是。

A．窗体布局窗口B．立即窗口C．代码窗口D．监视窗口7．保存新建的工程时，默认存放的位置是。

A．My Documents B．VB98 C．\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对属性进行设置。

A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9．若要使命令按钮不可操作，要对属性设置。

A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有属性。

A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是属性。

A．Text B．Name C．ForeColor D．Caption

12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句是正确的。

A．Form1.Caption = “欢迎使用VB”

B．Form1.Caption= ' 欢迎使用VB '

C．Form1.Caption = 欢迎使用VB

D．Form1.Caption = "欢迎使用VB"

13．要使某控件在运行时不可显示，应对属性进行设置。

A．Enabled B．Visible C．BackColor D．Caption 14．当运行程序时，系统自动执行启动窗体的事件过程。

A．Load B．Click C．Unload D．GotFocus 15．当文本框的ScrollBars属性设置了非零值，却没有效果，原因是。

A．文本框中没有内容B．文本框的MultiLine属性为False

C．文本框的MultiLine属性为True D．文本框的Locked属性为True

16．要判断在文本框是否按了Enter键，应在文本框的事件中判断。

A．Change B．KeyDown C．Click D．KeyPress 17．窗体Form1的Name属性是Frm1，它的单击事件过程名是。

A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 18．在一行内写多条语句时，每个语句之间用符号分隔。

A．, B．: C．、D．；19．一句语句要在下一行继续写，用符号作为续行符。

A．+ B．－C．_ D．…20．下面是合法的变量名。

A．X_yz B．123abc C．integer D．X－Y 21．下面是不合法的整常数。

A．100B．＆O100C．＆H100 D．%100 22．下面是合法的字符常数。

A．ABC$B．"ABC" C．'ABC ' D．ABC 23．下面是合法的单精度型变量。

A．num! B．sum% C．xinte$ D．mm# 24．下面是不合法的单精度常数。

A．100！B．100.0 C．1E+2 D．100.0D+2 25．表达式16/4-2^5*8/4 mod 5\2的值为。

A．14B．4C．20 D．2 26．数学关系3≤x＜10表示成正确的VB表达式为。

A．3<=x<10 B．3<=x AND x<10

C．x>=3 OR x<10 D．3<=x AND <10

27．\、/、MOD、*四个算术运算符中，优先级别最低的是。

A．\ B．/ C．MOD D．* 28．Rnd函数不可能为下列值。

A．0B．1 C．0.1234 D．0.0005 29．Int(198.555*100+0.5)/100的值为。

A．198 B．199.6 C．198.56 D．200 30．已知A$="12345678"，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为。

A．123456 B．123445 C．8D．6 31．表达式的Len("123程序设计ABC")的值是。

A．10B．14C．20D．17 32．表达式的LenB("123程序设计ABC")的值是。

A．10B．14C．20D．17 33．下面正确的赋值语句是。

A．x+y=30 B．y=π*r*r C．y=x+30 D．3y=x 34．为了给x，y，z三个变量赋初值1，下面正确的赋值语句是。

A．x=1:y=1:z=1 B．x=1,y=1,z=1 C．x=y=z=1 D．xyz=1 35．赋值语句：a=123 + MID("123456",3,2)执行后，a变量中的值是。

A．"12334"B．123C．12334D．157 36．赋值语句：a=123 & MID("123456",3,2)执行后，a变量中的值是。

A．"12334"B．123C．12334D．157 37．把字符串“123”转换为数值123 时应该使用的函数是。

A．Str B．V al C．Len D．Log 38．下列各表达式能产生[1，3]随机整数的是。

A．rnd()* 3+1 B．rnd()*2) +1

C．int(rnd()*２)+1 D．int(rnd()*3)+1

39．代数式

y

x )lnx

Sin(30

2xe0

x

对应的VB表达式是。

A．E^X*Sin(30*3.14/180)*2*x/x+y*log(x)

B．Exp(x)*Sin(30)*2*x/(x+y)*ln(x)

C．Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x)

D．Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)

40．VB提供了结构化程序设计的三种基本结构，三种基本结构是。

A．递归结构、选择结构、循环结构B．选择结构、过程结构、顺序结构C．过程结构、输入、输出结构、转向结构D．选择结构、循环结构、顺序结构41．下面程序段运行后，显示的结果是。

Dim x

If x Then Print x Else Print x + 1

A．1 B．0 C．显示出错信息D．2 42．语句If x=1 Then y=1，下列说法正确的是。

A．x=1 和y=1 均为赋值语句B．x=1 和y=1 均为关系表达式

C．x=1为关系表达式，y=1为赋值语句D．x=1为赋值语句，y=1为关系表达式

43．用If语句表示分段函数

√x+1 , x>=1

f(x)=

x2+3 , x<1

下列不正确的程序段是。

A．If x>=1 Then f=sqr(x+1) B．If x>=1 Then f=sqr(x+1) f=x*x+3 If x<1 Then f=x*x+3 C．If x>=1 Then f=sqr(x+1) Else f=x*x+3 D．If x<1 Then f=x*x+3 Else f=sqr(x+1) 44．计算分段函数的值。

0 x<0

1 0≤x<1

y= 2 1≤x<2

3x≥2

下面程序段中正确的是。

A．If x<0 Then y=0 B．If x>=2 Then y=3

If x<1 Then y=1 If x>=1 Then y=2

If x<2 Then y=2 If x>0 Then y=1

If x>=2 Then y=3 If x<0 Then y=0

C．If x<0 Then D．If x>=2 Then

y=0 y=3

ElseIf x>0 Then ElseIf x>=1 Then

y=1 y=2

ElseIf x>1 Then ElseIf x>=0 Then

y=2 y=1

Else Else

y=3 y=0

End If End If

45．下面程序段，显示的结果是。

Dim x

x = Int(Rnd) + 5

Select Case x

Case 5

Print "优秀"

Case 4

Print "良好"

Case 3

Print "通过"

Case Else

Print "不通过"

End Select

A．优秀B．良好C．通过D．不通过46．下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是。

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 47．下面程序段求两个数中的大数，不正确。

A．Max=IIf(x>y , x , y) B．If x>y Then Max=x Else Max=y

C．Max=x D．If y>=x Then Max=y

If y>x Then Max=y Max=x

48．以下是正确的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 10 Step 3

Re: … …

Next x Next y

If I=10 Then Goto Re

49．下列循环语句能正常结束循环的是。

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

50．下面程序段的运行结果为。

For i = 3 To 1 Step -1

Print Spc(5 - i);

For j = 1 To 2 * i - 1

Print "*";

Next j

Print

Next i

A．* B．* * * * * C．* * * * * D．* * * * * * * * * * * * * * * * *

* * * * * * * * 51．哪个程序段不能分别正确显示1!、2！、3！、4！的值。

A．For i = 1 To 4 B．For i = 1 To 4

n = 1 For j=1 to i

For j = 1 To i n=1

n = n * j n=n*j

Next j Next j

Print n Print n

Next i Next i

C．n = 1 D．n=1

For j = 1 To 4 j=1

n = n * j Do while j<=4

Print n n=n*j

Next j Print n

j=j+1

Loop

52．如下静态数组声明语句，正确。

A．Dim a[3,4] As Integer B．Dim a(3,4) As Integer

C．Dim a(n,n) As Integer D．ReDim a(3,4) As Integer

53．要分配存放如下方阵的数据，可使用数组声明语句来实现（不能浪费空间）。

1.1

2.2

3.3

4.4

5.5

6.6

7.7 8.8 9.9

A．Dim a(9) As Single B. Dim a(3,3) As Single

C. Dim a(-1 to 1,-5 to –3) As Single

D. Dim a(-3 to –1 ,5 to 7) As Integer

54．如下数组声明语句中，数组a包含元素的个数为。

Dim a(3,-2 to 2)

A．20 B．75 C．60 D．13 55．以下程序输出的结果是。

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．程序出错56．以下程序输出的结果是。

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), "###");

Next j

Print

Next i

End Sub

A．1 2 3 B． 1 C. 1 4 7 D. 1 2 3

2 5 6 4 5 2 4 6 4 6

7 8 9 7 8 9 3 6 9 9 57．在过程定义中用表示形参的传值。

A．Var B．ByDef C．ByVal D．Value

58．若已编写了一个Sort子过程，在该工程中有多个窗体，为了方便地调用Sort子过程，应该将过程放在。

A．窗体模块B．标准模块C．类模块D．工程

59．在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用关键字在过程中定义局部变量。

A．Dim B．Private C．Public D．Static

60．如果在立即窗口中执行以下操作：

a=8 (是回车键，下同)

b=9

print a>b

则输出结果是。

A. -1

B. 0

C. False

D. True

61．下面说明子过程语句中合法的是。

A．Sub f1(ByVal n%()) B．Sub f1(n%) As Integer

C．Function f1%(f1%) D．Function f1(ByVal n%)

62．要想从子过程调用后返回两个结果，下面子过程语句说明合法的是。

A．Sub f1(ByVal n%,ByVal m%) B．Sub f1(n%,ByVal m%)

C．Sub f1(n%,m%) D．Sub f1(ByVal n%,m%)

63．下面过程运行后显示的结果是。

Public Sub F1(n%, ByVal m%)

n = n Mod 10

m = m \ 10

End Sub

Private Sub Command1_Click()

Dim x%, y%

x = 12: y = 34

Call F1(x, y)

Print x, y

End Sub

A．2 34 B．12 34 C．2 3 D．12 3 64．如下程序，运行的结果是。

Dim a%, b%, c%

Public Sub p1(x%, y%)

Dim c%

x = 2 * x: y = y + 2: c = x + y

End Sub

Public Sub p2(x%, ByVal y%)

Dim c%

x = 2 * x: y = y + 2: c = x + y

End Sub

Private Sub Command1_Click()

a = 2:

b = 4:

c = 6

Call p1(a, b)

Print "a="; a; "b="; b; "c="; c

Call p2(a, b)

Print "a="; a; "b="; b; "c="; c

End Sub

A．a=2 b=4 c=6 B．a=4 b=6 c=10

a=4 b=6 c=10 a=8 b=8 c=16

C．a=4 b=6 c=6 D．a=4 b=6 c=14

a=8 b=6 c=6 a=8 b=8 c=6

65．下列控件中，没有Caption属性的是。

A. 框架

B. 列表框

C. 复选框

D. 单选按钮66．复选框的Value属性为1时，表示。

A．复选框未被选中B．复选框被选中

C．复选框内有灰色的勾D．复选框操作有错误

67．用来设置粗体字的属性是。

A. FontItalic

B. FontName

C. FontBold

D.FontSize

68．将数据项“China”添加到列表框(List1)中成为第一项应使用。

A．List1.AddItem "China", 0B．List1.AddItem "China", 1

C．List1.AddItem 0, "China"D．List1.AddItem 1, "China"

69．引用列表框（List1）最后一个数据项应使用。

A．List1.List (List1.ListCount)B．List1.List (List1.ListCount - 1)

C．List1.List (ListCount)D．List1.List (ListCount - 1)

70．假如列表框（List1）有四个数据项，那么把数据项“China”添加到列表框的最后，应使

用语句。

A．List1.AddItem 3,"China"B．List1.AddItem "China", List1.ListCount-1

C．List1.AddItem "China",3D．List1.AddItem "China",List1.ListCount

71．执行了下面的程序后，列表框中的数据项有。

Private Sub Form_Click()

For i = 1 To 6

List1.AddItem i

Next i

For i = 1 To 3

List1.RemoveItem i

Next i

End Sub

A．1,5,6 B．2,4,6 C．4,5,6 D．1,3,5

72．如果列表框（List1）中没有被选定的项目，则执行List1.RemoveItem List1.ListIndex 语句的结果是。

A．移去第一项B．移去最后一项

C．移去最后加入列表框的一项D．以上都不对

73．在下列说法中，正确的是。

A．通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上

B．在列表框中不能进行多项选择

C．在列表框中能够将项目按字母顺序从大到小排列

D．框架也有Click 和DblClick事件

74．为了防止用户随意将光标置于控件之上，应。

A．将控件的TabIndex属性设置为0

B．将控件的TabStop属性设置为True

C．将控件的TabStop属性设置为False

D．将控件的Enabled属性设置为False

75．在下列关于键盘事件的说法中，正确的是。

A．按下键盘上的任意一个键，都会引发KeyPress事件

B．大键盘上的“1”键和数字键盘上的“1”键的KeyCode码相同

C．KeyDown和KeyUp的事件过程中有KeyAscii参数

D．大键盘上的“4”键的上档字符是“$”，当同时按下Shift和大键盘上的“4”键时，KeyPress事件过程中的KeyAscii参数值是“$”的ASCII值。

76．如果要改变窗体的标题，需要设置窗体对象的哪一属性_________。

A．Name B．Caption C．BackColor D．BorderStyle

三、程序填空

1．以下程序的功能是：生成20个200到300之间的随机整数，输出其中能被5整除的数并计算它们的和，但程序不完整，请在横线上填入必要的内容，使其完整。

Private Sub Commandl_C1ick()

Dim x As Integer, sum As Integer

For i＝1To 20

x＝Int(____________*101+200)

If _______ ＝0 Then sum=sum+x

Print x

Next i

End Sub

2．下面程序是用于计算1!+4!+7!+…+19!，并显示计算结果，但程序不完整，请在横线上填入必要的内容，使其完整，其中函数过程nFactor用于计算阶乘。

部分程序代码如下：

Private Sub cmdSummary_Click()

Dim sum As Double

Dim i As Integer

For i = 1 To

sum = sum +

Next i

Label2.Caption =

End Sub

Public Function nFactor(ByVal n As Integer) As Double

Dim i As Integer

Dim temp

Temp=

For i = 1 To n

temp =

Next i

nFactor=temp

End Function

3．下面程序是利用“打擂台”方式逐个比较取代求得三数中最大及最小的数。请将程序补充完整。

Private Sub Command1_Click()

Dim a as integer,b as integer,c as integer

Dim max as integer,min as integer

a=val(text1.text)

b=val(text2.text)

c=val(text3.text)

max=a:min=a

if b>max then max=b

if b

if then max=c

if c

text4.text=str(max)

text5.text=str(min)

End Sub

4．窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名为Label1、Caption属性为“Sum”的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1~100之间能够被7整除的数添加到列表框。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，请填空。

Private Sub Form_Load( )

For i=1 to 100

If i mod 7=0 then

___________

End if

Next i

End sub

Private Sub Command1_Click( )

Sum=0

For i=0 to _________

Sum=sum+ ________

Next i

Text1.text=sum

End sub

5．通过选择组合、列表框中的选项来改变文本框的字体。在窗体中添加一个ComboBox （Combo1）和一个TextBox（Text1），代码如下:

Private Sub Combo1_Click()

Text1.FontName = Combo1.List(Combo1.ListIndex)

End Sub

Private Sub Form_Load()

Combo1.AddItem "宋体"

Combo1.AddItem "隶书"

Combo1.AddItem "黑体"

Combo1.AddItem "楷体"

Combo1.ListIndex = 0 '把第一个条目作为初始项

Text1.__________ = 30 '放大字体

Text1. __________ = Combo1.List(0) '初始字体为“宋体”

End Sub

6．下面是计算1/1! + 1/2! + 1/3! + 1/4! + …… + 1/100! 的程序，请填空补充完善程序。其中使用三个控件:

（1）LABEL控件用于提示说明累加什么。如：“计算1/1! + 1/2! + 1/3! + 1/4! + …… + 1/100!”。

（2）COMMANDBUTTON控件用于事件单击触发。

（3）TEXT控件用于显示结果，并放于变量a中。

Private Sub Command1_click()

Dim a As Double

Dim b As Double

Dim i As Integer

a = 0:

b =

For i = 1 To

b =

a = a + b

Next i

Text1.Text = a

End Sub

7．用Do … Loop Until语句和迭代法计算并显示斐波那契（Fibonaccii）数列的前20项。

请填空补充完善程序。

Private Sub Command1_Click()

Cls

f1 = 1: f2 = 1

i = 3

List1.AddItem f1

List1.AddItem f2

Do

f1 = f2

f2 = f3

List1.AddItem f3

i = i + 1

Loop Until

End Sub

8．给出两个正整数，用While…Wend语句，求它们的最大公约数。请填空补充完善程序。

Private Sub Command1_Click()

Dim m As Integer, n As Integer

m = Val(Text1.Text)

n = Val(Text2.Text)

If m < n Then

t=m: m=n: n=t

End If

r =m Mod n

While r <> 0

n = r

Wend

Label3.Caption = n

End Sub

9．从键盘输入10个数，要求按从小到大的顺序打印出来。但程序不完整，请在横线上填入必要的内容，使其完整。

Private Sub Form_Load()

Dim p As String : p = ""

For i = 1 To 10

a(i) = Val( ("输入需排序的数据：", "比较法排序"))

p = p & Str(a(i)) & ","

Next i

Label1.Caption = LTrim(Left(p, Len(p) - 1))

Label2.Caption = ""

End Sub

在“排序”按钮Command１的Click事件中加入以下代码：

Private Sub Command2_Click()

For i = 1 To 9

For j =i+1 To 10

If Then

t=a(i):a(i)=a(j):a(j)=t

End If

Next j

Next i

p = Str(a(1))

For i = 2 To 10

p = p & "," & Str(a(i))

Next i

Label2.Caption = LTrim(p)

End Sub

10．下面程序的功能是求所有100至1000之间的孪生素数（注：两者之差为2的素数称孪生素数），但程序不完整，请在横线上填入必要的内容，使其完整，其中函数过程

Isprimer的功能判断某自然数是否为素数。

Private Sub cmdFind_Click()

Dim i As Integer

For i = 100 To 1000

If IsPrimer(i) And Then

lstOutput.AddItem & "和" & Str(i + 2)

End If

Next i

End Sub

Public Function IsPrimer(ByVal n As Integer) As Boolean

Dim i As Integer, tag As Boolean : tag = True

For i = 2 To n - 1

If = 0 Then

: Exit Function

End If

Next i

End Function

四、编写程序

1．在窗体上画出3个文本框和两个命令按钮，如图1所示。当程序运行时，用户在第一个文本框内输入一行文字时，在另外两个文本框中同时显示出相同的内容，但显示的字号不同。

图1

2．按图2所示，编写程序，使用单选按钮改变窗体的背景色。

图2

3．按图3所示窗体，其中的单选按钮是控件数组（Index属性值为默认）。要求当单击某个单选钮时，改变文本框中文字的大小。

图3

4．设计一个程序，运行时的窗体所图4所示。窗体中包括两个列表框。左侧列表框中列出若干城市的名称。当单击某个城市名时，这个城市从左侧的列表框中消失，同时出现在右侧的列表框中。其中，左侧列表框中的城市名是在程序开始运行时添加到列表框中的。

图4

５．编程，如图5所示，在列表框中，显示200以内能被6整除的自然数。

图5

６．利用Inputbox函数从键盘上输入字符，并对输入的字符进行计数，当输入的字符为“？”

时，停止计数并将结果输出到文本框Text1中。

7．编程，如图6所示，在“半径”框中输入圆的半径，单击“确定”按钮时，“周长”、“面积”

框中显示圆的周长和面积。

图6

8．如图7所示，某公司卖软盘，50片以上（含50片），每片2元。50片以下，每片3元。

编程在“软盘数量”框中输入购买的软盘数，单击“计算”按钮后在“应收金额”框中显示应收钱数。单击“结束”按钮结束程序。

图7

9．编写电子钟程序，如图8所示。单击“开始”按钮，电子表开始走时；单击“停止”按钮，电子表停止。程序一开始运行，电子表框为空。

图8

10．请利用循环嵌套编写程序,在窗体上输出如图9所示的图案。

图9

VB程序设计练习题参考答案

一、填空题

1．视图工具箱

2．Style

3、Selstart

4．Locked

5．Tabindex 0

6．整型长整型单精度型双精度型

7．(x mod 10)*10+x\10

8．x mod 5 =0 or x mod 9=0

9．False

10．-4 3

11．CDEF

12．33

13．15

14．value

15．Alignment

16．Style

17．enabled

18．0

19．listcount-1

20．clear

21．下拉式列表框

22．窗体模块、标准模块、类模块

23．15000

24．time 或time$

25．Alt & 下划线

26．连字符“－”

27．KeyPress、KeyDown、KeyUp

28．MouseMove、MouseDown和MouseUp

二、选择题

1.A

2.C

3.B

4.C

5.A

6.C

7.B

8.D

9.A 10.D

11.B 12.D 13.B 14.A 15.B 16.D 17.B 18.B 19.C 20.A

21.D 22.B 23.A 24.D 25.B 26.B 27.C 28.B 29.C 30.B

31.A 32.C 33.C 34.A 35.D 36.A 37.B 38.D 39.C 40.D

41.A 42.C 43.A 44.D 45.A 46.D 47.D 48.B 49.C 50.B

51.B 52.B 53.C 54.A 55.D 56.D 57.C 58.B 59.D 60.C

61.D 62.C 63.A 64.C 65.B 66.B 67.C 68.A 69.B 70.D

71.D 72.D 73.D 74.D 75.D 76.B

三、程序填空

1．RND X Mod 5

2．19 step 3 nFactor(i) sum As Double 1 temp*i

3．min=b c>max

4.list1.additem i list1.listcount-1 list1.list(i)

5．Fontsize Fontname

6．1 100 b/i

7．f3=f1+f2 i>20

8．m=n r=m Mod n

9．Inputbox a(i)>a(j)

10．Isprimer(i+2) str(i) n Mod i tag=false Isprimer=tag 四、编写程序

1．Private Sub Command1_Click()

Text1.Text = " "

Text2.Text = " "

Text3.Text = " "

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Text1_Change()

Text2.Text = Text1.Text

Text2.FontSize = 12

Text3.Text = Text1.Text

Text3.FontSize = 18

End Sub

2．Private Sub Option1_Click()

Form1.BackColor = RGB(255, 0, 0)

End Sub

Private Sub Option2_Click()

Form1.BackColor = RGB(0, 0, 255)

End Sub

3．Private Sub Option1_Click(Index As Integer)

Select Case Index

Case 0

Text1.FontSize = 15

Case 1

Text1.FontSize = 20

Case 2

Text1.FontSize = 25

End Select

End Sub

Private Sub Command1_Click()

Unload Me

End Sub

4．Private Sub Form_Load()

List1.AddItem "北京"

List1.AddItem "上海"

List1.AddItem "天津"

List1.AddItem "重庆"

List1.AddItem "广东省"

List1.AddItem "河南省"

List1.AddItem "辽宁省"

List1.AddItem "陕西省"

End Sub

Private Sub List1_Click()

i = 0

Do While i < List1.ListCount

If List1.Selected(i) = True Then

List2.AddItem List1.List(i)

List1.RemoveItem i

Else

i = i + 1

End If

Loop

End Sub

5．Private Sub Command1_Click()

List1.Clear

For n = 1 To 200

If n Mod 6 = 0 Then List1.AddItem n

Next n

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

6．Private Sub Command1_Click()

Dim char As String, i As Integer

i = 0

char = InputBox("请从键盘输入一个字符")

Do While char <> "?"

i = i + 1

char = InputBox("请从键盘输入一个字符")

Loop

Text1.Text = i

End Sub

7．Private Sub Command1_Click()

Dim radius As Single, area As Single, perimeter As Single

Const pi = 3.14159

radius = Val(Text1.Text)

area = pi * radius * radius

perimeter = 2 * pi * radius

Text2.Text = area

Text3.Text = perimeter

End Sub

8．Private Sub Command1_Click()

Dim n As Integer

Dim sum As Integer

n = Val(Text1.Text)

If n < 50 Then

sum = n * 3

Else

sum = n * 2

End If

Text2.Text = sum

End Sub

Private Sub Command2_Click() Unload Me

End Sub

9．Private Sub Command1_Click()

Timer1.Enabled = True End Sub

Private Sub Command2_Click()

Timer1.Enabled = False End Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

Private Sub Timer1_Timer()

Text1.Text = Time

End Sub

10．Private Sub Command1_Click() Cls

Print

For i = 7 To 2 Step -1

Print Tab(20 - i);

For j = 1 To 2 * i- 1

Print "*";

Next j

Print

Next i

End Sub

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 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。

VB题库—程序设计[1]

程序设计 〖第1题〗『程序设计』(5分)(题号:148) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求10~20之间所有素数的乘积并输出在窗体上。 ' 将结果存入变量L中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer Dim j As Integer Dim b As Boolean l = 1 b = False For i = 10 To 20 For j = 2 To i - 2 If i Mod j = 0 Then b = True End If Next If b = False Then l = l * i End If b = False Next Print Str(l) ---------------------- 〖第2题〗『程序设计』(5分)(题号:150) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。' 将结果存入变量J中。 '------------------------------------------------- '注意：请在指定的事件内编写代码。 '------------------------------------------------- 答案：---------------------- Dim i As Integer For i = 1 To 100 If i Mod 2 = 1 Then j = j + 1 / i ElseIf i Mod 2 = 0 Then j = j - 1 / i End If Next Print j ---------------------- 〖第3题〗『程序设计』(5分)(题号:131) '------------------------------------------------- '【程序设计】 '------------------------------------------------- '题目：(事件)单击窗体。 ' (响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100， ' 结果输出在窗体上。 '------------------------------------------------- '将结果存入变量S中 '------------------------------------------------- 答案：---------------------- Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) ---------------------- 〖第4题〗『程序设计』(5分)(题号:152)

vb题库程序设计

一、程序设计 '【程序设计】 1.'题目：编写函数fun，函数的功能是：计算两个正整数的最大公约数，并显示。如：'两个数为15、20，结果显示"5" '要求使用Do ... Loop语句来实现。 答案：Do r = m Mod n If r = 0 Then Exit Do m = n n = r Loop fun = n 2.'题目：判断一个数是否是素数。 答案：---------------------- Dim i As Integer Prime = True For i = 2 To Int(Sqr(m)) If m Mod i = 0 Then Prime = False: Exit For Next i ---------------------- 3,'题目：(事件)单击窗体。 ' (响应)求10!的值，并将结果输出到窗体上。 将结果存入变量SUM中。 答案：---------------------- Dim i As Integer sum = 1 For i = 1 To 10 sum = sum * i Next Print sum 4,'题目：(事件)单击窗体。 (响应)求1+2+3+……+100的值，并把结果输出在窗体上。结果存入变量SUM中。 答案：---------------------- Dim i As Integer For i = 1 To 100 sum = sum + i Next Print sum ---------------------- 5,'题目：编写函数fun，函数的功能是：求1到m之间的偶数之积。 答案：---------------------- Dim y As Double y = 1 Dim i As Integer For i = 1 To m

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程序设计 试题与答案-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程序设计试题及答案一

V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用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 ……

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程序设计基础》模拟精彩试题

《VB程序设计》模拟试题 ●填空题 1.窗体模块的文件扩展名为 ___FRM_________ 、标准模块的文件扩展名为____BAS______ 、 类模块文件的扩展名为______CLS_______ 。 2.Visual Basic中数据类型可分为 _____标准数据类型________和用户自定义数据类型两大类，前者根据其取值的不同，可分为_____整型_________、 ______长整型_____、布尔型和 ____字符型_________。 3. Abs(-6.5)= _____6.5______；Int(-9.1)= ____-10_______。 4. "程序"& "设计"运算结果为 ___程序设计____ 。 5. Dim a, b as Boolean语句显式声明变量a是___变体___变量，b是___布尔__变量。 6. MsgBox函数的返回值中， VBRetry表示单击了____重试_____按钮，VBYes表示单击了___是_____按钮，VBNo表示单击了_____否____按钮。 7. 要加载窗体，可以在代码中使用___________语句，要显示窗体，可以在代码中使用___________方法，要隐藏窗体，可以在代码中使用Hide方法，要卸载窗体，可以在代码中使用___________方法。 8.对话框分为_________对话框和________对话框两种类型，其中_____________ 对话框最 常用。 9. 对象是Visual Basic应用程序的基本单元，它是由 ___类___创建的。在Visual Basic中可以用属性、 __方法___、___事件___ 来说明和衡量一个对象的特性。 10. 条件判断语句可以使用___If…then____________语句、 ____If…Then…Else______语句和 ______If…Then…ElseIf______语句。Select case 语句 11. 声明一个值为3.14的常量Pi的语句为___Const pi = 3.14______。 12. Do…Loop Until 循环结构中，当条件为____真____时结束循环。 13. 要显示弹出菜单，可以在代码中使用_____________事件。 14. 参数传递有__________方式、__________方式和命名传递方式，常量默认采用__________方式；变量默认采用__________方式；表达式默认采用__________方式。 15. 名称属性必须以一个__字母标点_开始并且最长可达40个字符,不能包括__符号___ 和 ___空格___。 16.Visual Basic的程序模块有3种：____窗体模块____ 、标准模块和 ____类模块____。 17.Visual Basic程序，按其语句代码执行的先后顺序，可以分为___顺序__结构、选择__结构和___循环____ 结构。 18.数组元素下标的下界默认为是_____________，如果要改变其默认值，应使用_____________。 ●判断题 （）1. Visual Basic运行程序的方法只有编译模式。 （）2. 语句Command1.visible=false 与Command1.enabled=false 是等价的。 （）3. InputBox函数和MsgBox函数一样，返回的是字符串。 （）4. 通过类模块，我们不可以根据需要建立自己的控件。 （×）5. 2.1E+5是合法的Visual Basic数据。 （）6. 根据占用内存方式的不同，可将数组分为常规数组和动态数组两种类型。 （√）7. x2是合法的变量名。 （）8. 按照文件的存取方式及其组成结构可以分为两种类型：文本文件和随机文件。

vb题库程序设计题讲解

（事件）单 ' （响应）用输入框输入一自然数，判断是”正数”、”负数” 或”零”，并根据输入的数用消息框显示”正数”、"负数" 或”零”。 n = lnputBox（" 输入一个自然数"） If n > 0 Then result =" 正数" Elself n < 0 Then result =" 负数" Elself n = 0 Then result =" 零" End If MsgBox"输入的数据"& n & " 为："& result 题目编写函数fun，函数的功能是：判断一个字符是 '字母字符、数字字符还是其他字符，并做相应的显示。 '字母字符显示字符串"字母" '数字字符显示字符串"数字" '其他字符显示字符串"其他" '要求使用IF语句来实现。 If UCase（n） >= "A" And UCase（n） <= "Z" Then fun =" 字母" ElseIf n >= "0" And n <= "9" Then fun =" 数字" Else fun =" 其他" End If '题目：编写函数fun，函数的功能是：根据一个百分制 '成绩mark （整数），显示对应五级制的评定。条件如下： 'mark大于等于90显示"优秀" 'mark小于90且大于等于80显示"良好" 'mark小于80且大于等于70显示"中等" 'mark小于70且大于等于60显示"及格" 'mark小于60显示"不及格" '要求使用IF语句来实现。 Private Function fun(mark As Integer) As String **********Program ********** **********End ********** End Function If mark >= 90 The n fun =" 优秀" ElseIf mark >= 80 The n

VB程序设计题库全

V B程序设计题库全 Document serial number【LGGKGB-LGG98YT-LGGT8CB-LGUT-

程序设计 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题 题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中

代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。 将结果存入变量SUM中。 代码：Dim i As Integer For i=1 To 100 If i Mod 2 = 1 Then sum = sum + i End If Next Print sum 第六题

【2017年最新】大学VB考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123& MID("123456",3,2)执行后，a变量中的值是（C）。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是（C）。 A、https://www.wendangku.net/doc/bb4662647.html,="VisualBasic窗体" B、Form1.Title="VisualBasic窗体" C、Form1.Caption="VisualBasic窗体" D、Form1.Text="VisualBasic窗体" 5、为了装入一个VisualBasic应用程序，应当（D） A、只装入窗体文件（.frm） B、只装入工程文件（.vbp） C、分别装入工程文件和标准模块文件（.bas） D、分别装入工程文件、窗体文件和标准模块文件 6、赋给一个数组的数据类型一定要（A）。 A、相同 B、不相同 C、两可 D、都不对 7、下面正确的赋值语句是（C）。 A、x+y=30 B、y=π*r*r C、y=x+30 D、3y=x 8、VisualBasic 6.0集成环境的主窗口中不包括（C）。

A、标题栏 B、菜单栏 C、状态栏 D、工具栏 9、以下叙述中错误的是(C)。 A、Visual Basic 是事件驱动型可视化编程工具 B、Visual Basic应用程序不具有明显的开始和结束语句 C、Visual Basic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性(计时器) D、Visual Basic中控件的某些属性只能在运行时设置 10、要使Print方法在Form_Load事件中起作用，要对窗体的(C)属性进行设置。 A、Backcolor B、ForeColor C、AutoRedraw D、BackStyle 11、若要使命令按钮不可操作，要对(A)属性进行设制。 A、Enabled B、Visible C、BackColor D、Caption 12、以下叙述中错误的是(B)。 A、一个工程中可以包含多个窗体文件 B、在一个窗体文件中用Private定义的通用过程能被其他窗体调用 C、在设计VB程序时，窗体、标准模块、类模块等需要分别保存为不同类型的磁盘文件。 D、一个工程默认的启动对象是Form1 13、Cls方法可以清除窗体或图片框中的(C)内容。 A、在设计阶段使用Picture设置的背景位图 B、在设计阶段放置的控件 C、在运行阶段产生的图形和文字 D、以上均可 14、设x=3,y=5,则以下表达式值为真的是 (C) A、(-3+5>x) And (y>0) B、(x<0) Eqv (y>0) C、(x>y) Or (y>0) D、x>=y And y>10 15、为了防止用户随意将光标置于控件之上，应将进行(D)设置。 A、将控件的TabIndex属性设置为0

VB程序设计题库(全)复习课程

V B程序设计题库(全)

VB程序设计练习题 第一题、 题目：（事件）单击窗体 （响应）求50以内所有偶数的和，并在窗体上输出来。 将结果存入变量S中。 代码：Dim I As Integer For i = 2 To 50 If (i Mod 2)=0 Then S=s+i End If Next Print (CStr(s)) 第二题 题目：（事件）双击窗体 （响应）求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码：Dim i,j As Integer Dim k As Long k=1 s=0 For i =1To 10 For j=1 To i k=k*j Next s=s+k k=1 Next Print(CStr(s)) 第三题题目：（事件）单击窗体 （响应）求100以内偶数的和，并将结果输出在窗体上。 将结果存入变量SUM中 代码：Dim i As Integer For i =1 To 100 If i Mod 2 =0 Then Sum=sum+i End If Next Print sum 第四题 题目：（事件）单击窗体 （响应）编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。将结果存入变量M中。 代码：Dim i,j As Integer Dim s As Long For i =10 To 15 s=1 For j = i To i +2 s=s*j Next m=m+s Next Print (CStr(m)) 第五题 题目：（事件）双击窗体 （响应）求100以内奇数的和，并将结果输出在窗体上。

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. 同一Form窗体中的各控件可以相互重叠，其显示的上下层次的次序不可以调整。（ X ） 2. 一个对象的若能识别多个事件，我们只能对其中一个事件编程（ ） 3. 单选按钮与复选框对象的Value属性类型不同，且只能取值True和False。（√） 4. 事件过程由某个用户事件或系统事件触发执行，它不能被其他过程调用。（ ） 5. 图片框的Move方法不仅可以移动图片框，而且还可以改变该图片框的大小，同时也会改变该图片框有关属性的值。（√） 6. “A=B=C”是一个合法的Visual Basic语句。（ ） 7. 当在一个简单组合框的文本框中输入一个它的列表框中没有的条目时，组合框会自动把这一条目添加到它的列表框中。（ ） 8. Visual Basic程序的运行可以从 Main（）过程启动，也可以从某个窗体启动。（√） 9. 在图片框中放置的控件既可以在该图片框内移动，也可以移出该图片框外。（ ） 10. 对于文件系统控件，当驱动器控件Drivel中的驱动器符改变时，文件夹列表控件Dir1中显示的文件夹也作相应的改变，可以在Drive1中的Change事件中使用如下命令。Dir1. Path＝ Drive1. Drive（√） 11. 滚动条控件可作为用户输入数据的一种方法。（√） 12. 单选按钮控件和复选框控件都具有Value属性，它们的作用完全相同。（ ） 13. 静态变量是一种局部变量，当原过程再次被执行时，静态变量的初值是上一次过程调用后的值。（√） 14. Visual Basic提供的几种标准坐标系统的原点都是在绘图区域的左上角，如果要把坐标原点放在其他位置，则需使用自定义坐标系统。（√） 15．注释语句REM可自成一语句。（√） 16. 用鼠标选中某菜单控件时，触发Click事件；而用键盘选中该菜单控件时，触发 KeyPress （ ） 17. 组合框兼有文本框和列表框两者的功能，用户可以通过键人文本或选择列表中的项目来进行选择。（√） 18. 当定时器控件的Interval属性值设置为0时，会连续不断地激发Timer事件。（ ）19．执行程序 x=0:for I=2 to 10 step –2:x=x+10:next I后x的值为0。（√） 2.句“FontName="宋体" ”与“Form1.FontName="宋体" ”的作用完全相同，无一例外。（ ） 21局变量只能在窗体的通用区内用Public或global定义。（ ） 22. 在盘驱动器列表框Drivel的Change事件过程中，代码Dirl. Path＝Drivel . Drive 的作用是：当Drivel的驱动器改变时，Dirl的目录列表随不同驱动器作相应改变。（√）

VB程序设计考试题库——考试专用

程序设计题 1、题目：(事件)单击窗体(响应)用输入框输入一自然数，判断是"正数"、"负数或"零"，并根据输入的数用消息框显示"正数"、"负数”或"零"。 2、题目：(事件)单击窗体。(响应)求200~300之间既能被3整除又能被7整除的数。并求出所有数之和存入变量SUM中 3、题目：单击窗体。(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100，结果输出在窗体上。 4、题目：(事件)单击窗体。(响应)在窗体上打印数列2/1,3/2,5/3,8/5,13/8…的前10项，并求其和，将和保存在变量s中。 5、题目：(事件)双击窗体。(响应)把一元钞票换成一分、二分和五分的硬币每种至少有一枚），求出其所有的换法，把结果输出在窗体上。将所有的换法的数目存入变量N中 6、题目：单击窗体。)求1!+2!+3!+4!+5!并将结果输出到窗体上。结果存入变量S中 7、题目：(事件)单击窗体。(响应)生成一个一维数组(10个数组元素依此为： ' 15、23、72、43、96、23、3、65、88、17 写程序求出这个数组中的最大值、最小值和平均值，并输出在窗体上。将最大值，最小值，平均值分别存入变量Max,Min,Aver中 8、题目：(事件)单击窗体。(响应)在窗体上输出100~200之间的所有合数。求出所有数之和存入SUM 中所谓合数是指自然数中能被1和本数整除以外,还能被其他数整除的数。 9、题目：(事件)单击窗体。(响应)求10~20之间所有素数的乘积并输出在窗体上。将结果存入变量L 中。 10、题目：(事件)单击窗体。(响应)求1 - 1/2 + 1/3 - 1/4 + ……+ 1/99 - 1/100的值。将结果存入变量J中。 1题 n = InputBox("输入一个自然数") If n > 0 Then result = "正数" ElseIf n < 0 Then result = "负数" ElseIf n = 0 Then result = "零" End If MsgBox "输入的数据" & n & "为：" & result 2题 Dim i As Integer For i = 201 To 300 If ((i Mod 3) = 0) And ((i Mod 7) = 0) Then Print (CStr(i)) sum = sum + i End If Next Print sum 3题 Dim i As Integer s = 0 For i = 1 To 10 s = s + 1 / (i ^ i) Next Print (s) 4题 Dim i, j, k, m As Integer s = 0 :i = 2:j = 1 For k = 1 To 10 s = s + i / j m = j Print (CStr(i)) & "/" & CStr(j) j = i i = i + m Next 5题 Dim i, j, k As Integer For i = 1 To 100 For j = 1 To 50 For k = 1 To 20 If ((i + 2 * j + k * 5) = 100) Then Print (CStr(i)) Print (CStr(j)) Print (CStr(k))

《VB程序设计》试题及答案

2018-2019 第二学期计算机专业 每个窗体的二 《 VB 程序设计》试题（ A 卷） 进制数据文件，（共 10道 20分） 一、选择题 控件的属性值 等 1、一个工程必须包含的文件的类型是（） A）*.vbp *.frm *.frx B）*.vbp *.cls *.bas C） *.bas *.ocx */res D）*.frm *.cls *.bas 2、以下关于 VB 数据类型的说法，不恰当的是（） A）VB 6.0提供的数据类型主要有字符串型和数值型，此外还有班级：字节、货币、对象、日期、布尔和变体数据类型等 B）目前 Decimal 数据类型只能在变体类型中使用 C）用户不能定义自己的数据类型 D）布尔型数据只能取两种值，用两个字节存储 姓名： 3、以下各项，可以作为 VB 变量名的是（） A） Book B）2_Seek C）123.58D）Book-1 学号：4、函数 Int(Rnd(0)*10) 是在 ()范围内的整数。 A）(0,1)B）(1,10)C）(0,9)D）(1,9) 5、要将名为 MyForm 的窗体显示出来，正确的使用方法是（） A） MyForm.Show B）Show.MyForm C） MyForm .Load D）MyForm .Show 6、输入代码时， VB 可以自动检测 ()错误。 A）语法错误B）编译错误C）运行错误D）逻辑错误 7、单击窗体上的关闭按钮时，触发的事件是（） A ）Form_Initialize()B）Form_Load() C）Form_Unload()D）Form_Click() 8、.用于将窗体上的对象分组的控件是（） A ）列表框B）组合框C）标签D）框架 9、下面语句正确的是（） A ） If x<3*y And x>y Then y=x^3 B） If x<3*y And x>y Then y=3x C）If x<3*y : x>y Then y=x^3D）If x<3*y : x>y Then y=x**3 10、 1.下列程序段的执行结果为 a=5 For k=1To 3 a=a + k Next k Print k； a A）-1 6B）-1 16C）411D）1121 二、程序设计（共4道题 80分） 1、利用TextBox、Label、Commandbutton控件编写如下功能和如 下用户界面的 VB 程序