文档库 最新最全的文档下载
当前位置:文档库 › VB考试试题及答案

VB考试试题及答案

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、都不对

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

17、窗体的hide属性的含义是 A 。

A.隐藏

B.展现

C.装

入 D.卸载

18、若要设置定时器控件的定时时间,需设置的属性是 C 。

A.Enabled B.Value C.Interval D.Text

19、能够改变复选框中背景颜色的属性是 C 。

A.Value B.FontColor C.BackColor D.Font

20、窗体能响应的事件是 B 。

A.ActiveForm B.Load C.Drive

D.Change

三、判断题(判断下列正确与否,正确的打√,错误的打ⅹ。)

1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。X

2、图象框中的Stretch属性为true时,其作用是图形自动调整大小以适应图象控件。X

3、在菜单编辑器中使用“索引”时,可有一组菜单项具有相同的“名字”。X

4、通过改变属性窗口中的Name属性,来改变窗体的标题。

5、创建VB应用程序的三个主要步骤是:(1)创建应用程序界面(2)设置控件(3)编写代码。X

6、变量是指在程序运行过程中其值可以改变的那些量,而值不能改变的是常量。

7、已知P=MsgBox(“Howareyou?",VbYesNo+VbQuestion,“Hello!”),变量P是Integer数据类型。

8、工程文件的扩展名是.vbg 。

9、VB允许设计和使用用户自己设计的控件。

10、OptionButton控件没有DblCliek事件。X

11、同一条记录中的各数据具有相同的类型。

12、使用Data控件可以直接显示数据库中的数据。X

13、ImageList 是一个图像容器控件,可用作工具栏的图像库。

14、当用户单击工具栏按钮时,将触发工具栏按钮的ButtonClick事件。

15、在VB的工程资源管理器中,如果从工程中移除已经保存过的文件,该文件仍然被物理删除(真正删除)。X

16、如果列表框的ListConut的属性为10,则列表框最后一项的ListIndex 值为10。X

17、要是某个命令按钮不起作用,应将该按钮的Enabeld属性设置为False。

18、使用数组定义语句:Dim D$(10),则数组D中各元素的值为空。X

19、如果在一行中输入多条语句,各语句之间用使用;分隔。X

20、在代码窗口中输入某行代码并按回车键之后,如果代码变成红色,说明该行代码有语法错误。

四、读程序题,写出程序运行结果

1、Private Sub Form_Click()

Static SUM As Integer

I = 1

Do While I<=10

SUM = SUM + I

I = I + 1

Loop

Print SUM

End Sub

运行程序,第一次单击窗体:55

第二次单击窗

体:110

2、Private Sub Form_Click()

Print "*"; Tab(6); 2, Tab(15); 5

Print

For I = 15 To 16

Print I;

For j = 2 To 6 Step 3

Print Tab(3 * j); j * I;

Next j

Print

Next I

End Sub

程序运行结果:* 2 5

15 30

75

16 32

80

五、编程题

(一)窗体中有图片框(Picture1)和计时器(Timer1)两个控件,运行程序时,将图片加载到图片框中,然后图片框以每2秒钟一次的速度向窗体的右下脚移动,每次向左、向右移动100twip(20分之一像素)。请填空:

Private Sub Form_load( )

Picture1.picture =loadPicture(“c:\pic\ball.ico”)

Timer1 .Interval=200

End Sub

Private Sub Timer1_Timer( )

Static x , y As Integer

x=x+100

y=y+100

Picture1.Move x , y

End Sub

(二)有一个单击按钮过程,其作用是产生50个60~100的随机数,统计其中被6整除余2的个数,并将这些数输出。请填空:

Private Sub Command1_Click()

Dim x As Integer, N%

Dim Counter As Integer

randomize Timer

For N=1 To 50

X=Rnd()* rnd()*41+60

If x Mod 6 =2 Then

Print x

Counter= Counter+1

End if

Next N

Print Counter

End Sub

卷2

第一部分:客观题

一、单项选择题

1、在窗体模块的通用段中声明变量时,不能使用的关键字是()

A、 Dim

B、 Public

C、Private

D、 Static

2、在设计阶段,当双击窗体上的某个控件时,所打开的窗口是()

A、工程资源管理器窗口

B、工具箱窗口

C、属性窗口

D、代码窗口

3、若要使某可见控件获得焦点,可使用()方法来实现。

A、Refresh B、Setfocus C、Gotfocus D、Value

4、下列不可作为VB变量名的是()

A、ABT1

B、Alpha

C、ABC

D、4*Delta

5、表达式 5 Mod 3+3\5*2的值是()

A、 0

B、 6

C、4

D、 2

6、下列语句中,正确的赋值语句是()

A、 i + j = 10

B、 2i = j

C、 j = i + j

D、 i * j = 0

7、执行下列程序段后,x的值是()。

n = 4: x = 1: i = 1

Do

x = x * i

i = i + 1

Loop While i < n

A、 2

B、 6

C、 10

D、 14

8、当用户在窗体上单击鼠标时,不会触发的事件是()

A、Click B、MouseDown C、MouseUp D、DblClick

9、下列为整型变量的是()

A、 x!

B、 x#

C、x$

D、 x%

10、要从For循环中直接退出循环,可使用的语句( )。

A、Exit Do

B、Exit Loop

C、Exit For

D、Stop

11、下列逻辑表达式中,能正确表示条件“x,y都是奇数”的是()

A、x Mod 2 =1 Or y Mod 2 =1

B、x Mod 2 =0 Or y Mod 2=0

C、x Mod 2 =0 And y Mod 2=0

D、x Mod 2 =1 And y Mod 2 =1

12、在通用声明中给出Option Base 1语句,则数组a包含()个数组元素。

Dim a(3, -2 To 1, 5) As Integer

A、60

B、75

C、120

D、13

13、设窗体上有一个名称为Text1的文本框,要求只能显示信息,不能输入,应选择答案

()

A、Text1.MaxLength=0

B、Text1.Width=0

C、Text1.Visible=False

D、Text1.Enabled=False

14、命令按钮CommandButton的Picture,DownPicture和DisablePicture属性都已装入图形,按下命令按钮,其上显示的图形是()

A、Picture属性中的图形

B、DownPicture属性中的图形

C、DisablePicture 属性中的图形

D、不显示图形

15、在窗体上画一个名称为Command1的命令按钮,并编写如下程序:

Private Sub Command1_Click()

Dim x As Integer

Static y As Integer

x=10:y=5

Call f1(x,y)

Print x,y

End Sub

Private Sub f1(ByRef x1 As Integer, y1 As Integer)

x1=x1+2

y1=y1+2

End Sub

程序运行后,单击命令按钮,在窗体上显示的内容是()

A、 10 5

B、 12 5

C、 10 7

D、 12 7

16、执行以下程序段,输出结果为()

Private Sub Command1_Click()

a$="abbacddcba"

For i=6 To 2 Step -2

X=Mid(a,i,i)

Y=Left(a,i)

z=Right(a,i)

z= UCase(x & y & z)

Next i

Print z

End Sub

A、 ABA

B、ABBABA

C、 BBABBA

D、AABAAB

17、以下()语句可表示[50,100]之间的随机数。

A、Int(Rnd * 51) + 49

B、Int(Rnd * 51 +50)

C、Int(Rnd * 50) + 5

D、Int(Rnd * 50 + 50)

18、执行x = InputBox("请输入半径",0,"求面积") ,在输入框中输入3后回车,则下列叙述正确的是()

A、x的值是数值3

B、 x的值是字符"3"

C、0是默认值

D、对话框标题是"求面积"

19、设置图像框的()可使框内的图片按图像框大小自动调整。

A、 AutoSize属性为True

B、 Stretch属性为True

C、 AutoSize属性为False

D、 Stretch属性为False

20、有如下事件过程

Private Sub Command1_Click()

x = 1

For i = 1 To 3

If i <= 1 Then a = x * x

If i <= 2 Then a = x * x + 1

If i >= 3 Then a = x * x + 2

Print a;

Next i

End Sub

运行时,单击命令按钮,则结果是():

A、 2 5 11

B、1 5 1

C、 2 2 3

D、1 1 1

21、在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

Private Sub Command1_Click()

Static X As Integer

Static Y As Integer

Cls

Y = 1: Y = Y + 5: X = 5 + X

Print X, Y

End Sub

,单击命令按钮Command1三次后,窗体上显示的结果为()

A、15 16

B、15 6

C、15 15

D、 5 6

22、设a=3,b=5,则以下表达式值为TRUE的是()

A、 a>=b And b>10

B、 a>b Or b>0

C、 a<0 and b >0

D、 -3+5>a and b>0

23、从键盘上输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是()

A、 Left

B、Mid

C、String

D、Instr

24、下列哪组语句可以将变量a,b的值互换()

A、 a=b: b=a

B、 a=a+b: b=a-b: a=a-b

C、 a=c: c=b: b=a

D、 a=(a+b)/2: b=(a-b)/2

25、可以同时删除字符串前导和尾部空格的函数是()

A、 Ltrim

B、 Rtrim

C、Trim

D、Mid

26、表达式29\3的值是()

A、 1

B、7

C、 8

D、 9

27、下列程序运行后,单击command1时显示的结果是()

Private Sub Command1_Click()

x = 1

mysub x + 2

Print x

End Sub

Public Sub mysub(x As Integer)

x = 3 * x - 1

If x < 4 Then x = x + 10

Print x;

End Sub

A、 8 1

B、 8 8

C、 19 1

D、 19 19

28、以下有关Visual Basic语言描述中错误的是()。

A、不区分大小写

B、语句是一行一句,以回车键结束

C、用“,”分隔一行中的多个语句

D、一条语句放在多行中,则在前一行结束处使用续行符空格+下划线(“ _”)连接下一行

29、在窗体上添加两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name 属性为Command1),然后编写如下事件过程:

Private Sub Command1_Click()

x = 0

Do While x < 50

x = (x + 2) * (x + 3)

n = n + 1

Loop

Text1.Text = Str(n)

Text2.Text = Str(x)

End Sub

程序运行后,单击命令按钮,在两个文本框中显示的值分别为( )

A、1和0

B、2和72

C、3和50

D、4和168

30、设有如下声明:

Dim X As Integer

如果Sgn(X) 的值为-1,则X的值是()

A、整数

B、大于0的整数

C、等于0的整数

D、小于0的数

二、判断题

下列各题如果是正确的,请在机读卡对应位置上涂A,如果是错误的涂B。答在试卷

上不得分

1、VB程序运行后,在内存中只能驻留一个窗体。

2、在VB中,控件的属性只能在设计时修改,运行时无法改变。

3、执行Unload Form1语句后,窗体Form1消失,但仍在内存中。

4、在一个窗体模块中可以调用在其他窗体中被定义为Public的通用过程。

5、Function过程与Sub过程最主要的区别是:SUB过程不能返回值,而FUNCTION

过程能返回值。

6、用Print方法可以在图像框中输出数据。

7、Dim a,b,c As Integer能将a,b,c都声明成整型变量。

8、语句print “*”;tab(10);”a”与语句print “*”;spc(10);”a”的显示结果

是一样的。

9、控件数组使用Index属性来标识控件元素,其范围必须从0开始。

10、文件号的最大取值为512。

第二部分:主观题

三、填空题

请在答题卷对应位置填写答案,答在试卷上不得分。

1、数学关系式a2+b2表示成正确的VB表达式为___【1】___ 。

2、计算表达式的值Int(86.567 * 100 + 0.5) / 100=___【2】___ 。

3、赋值语句g = 123 + Mid("123456", 3, 2)执行后,变量g中的值是___【3】___ 。

4、VB6.0在编写代码时可以添加说明性文字。注释方法有2种,一种是使用注释标记符撇号(’);另一种是使用以关键字___【4】___开头的注释语言。

5、设a="a",b="b",c="c",d="d",执行语句x=IIf((ad), "A","B")后,x的值为___【5】___ 。

6、在VB中,描述对象特征的数据称为对象的___【6】___。

7、有下面的表达式x1=val(“1e2abcd”),运行后,x1的值为:___【7】___ 。

8、产生一个两位数的随机数的表达式为:___【8】___。

9、只有控件对象的Enabled和Visible属性值均为___【9】___ 时,该控件对象才能接受焦点。

10、设a=10,b=5,c=1,执行语句Print a>b>c后,窗体上显示的是___【10】___ 。

四、读程序写结果

请将答案填写在答题卷对应位置处,答在试卷上不得分。

1、下面程序执行后a的值是___【1】___。

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 1:

b = 1

Do While b <> 5

a =

b - a

b = b + 1

Loop

Print a

End Sub

2、下列程序运行后,单击窗体时显示的结果是___【2】___。

Private Sub Form_Click()

Dim x As Integer

x = 1

mysub x

Print x

End Sub

Private Sub mysub(x As Integer)

x = 3 * x - 1

If x < 5 Then x = x + 9

End Sub

3、单击窗体,程序运行后结果是___【3】___。

Private Sub form_Click()

Dim i As Integer, j As Integer

i = 22: j = 44

Call mysub(i, j)

Print j

End Sub

Public Sub mysub(ByVal x As Integer, y As Integer)

x = y + x

y = x Mod y

End Sub

4、程序运行时,单击Command1按钮,显示结果是___【4】___。

Private Sub Command1_Click()

Dim a As Variant, s As Integer

Dim i As Integer, j As Integer

a = Array(1, 2, 3, 4)

j = 1

For i = 3 To 0 Step -1

s = s + a(i) * j

j = j * 10

Next i

Print s

End Sub

5、程序运行时,单击Command1按钮,显示结果是___【5】___。

Private Sub Command1_Click()

Dim i As Integer, n As Integer

For i = 1 To 100

i = i + 4

n = n + 1

i = i + 2

If i > 30 Then Exit For

Next i

Print n, i

End Sub

五、编写程序题

请将程序代码写在答题卷对应位置处,答在试卷上不得分。

1、生成大小为1到100的50个随机整数,使用选择排序法对这些数进行由小到大的排序,并将其显示出来。(8分)

2、编写一函数过程计算1到n的累乘,参数n在调用时传递,函数名为mul。在主程序中调用该函数完成计算sum=1!+2!+3!+4!+5!,然后把sum结果打印出来。(6分)

3、找出所有四位整数的回文数,并把找出的这些回文数保存在顺序文件”c:\abc.txt”中。(顺读和倒读都一样的字符串称“回文”,如:“level”,“1221”) (6分)

第一部分:客观题

一、单项选择题

1-5、DDBDD 6 -10、CBDDC 11-15、DADBD 16-20、CBBBC

21-25、BBDBC 26-30 、DACBD

二、判断题

1、B

2、B

3、B

4、A

5、A

6、B

7、B

8、B

9、B 10、B

第二部分:主观题

三、填空题

1、a^2+b^2

2、86.57

3、157

4、REM

5、“A”

6、属性

7、100 8、int(rnd*90+10)

9、true 10、false

四、读程序写结果题

1、3

2、11

3、22

4、1234

5、5, 35

五、编写程序题

1、生成大小为1到100的50个随机整数,使用选择法对这些数进行由小到大的排序,并将其显示出来。

Private Sub Command1_Click()

Dim a(49) as integer (1分)

Dim i as integer, k as integer

Randomize Time

For i=0 to 49

a(i)=Int(Rnd*(100-1+1)+1) (1分)

next i

for i=0 to 48 (1分)

k=I (1分)

for j=i+1 to 49 (1分)

if a(k)>a(j) then k=j (1分)

next j

tmp=a(i): a(i)=a(k): a(k)=tmp (1分)

next i

for i=0 to 49

print a(i); (1分)

next i

End Sub

2、编写一函数过程计算1到n的累乘,参数n在调用时传递,函数名为mul。在主程序中调用该函数完成计算sum=1!+2!+3!+4!+5!,然后把sum结果打印出来。

Private Sub Command1_Click()

Dim sum as Integer, I as integer

Sum=0 (1分)

For i=1 to 5

Sum=Sum+mul(i) (1分)

Next i

Print sum (1分)

End sub

Private Function mul(n as integer) as integer (1分)

Dim s as integer, i as integer

S=1

For i=1 to n

S=s*i (1分)

Next i

Mul=s (1分)

End Sub

3、找出所有四位整数的回文数,并把找出的这些回文数保存在顺序文件”c:\abc.txt”中。(顺读和倒读都一样的字符串称“回文”,如:level,1221)

Private Sub Command1_Click()

Dim i As Integer, n As Integer, s As String

Dim j As Integer

Open “c:\abc.txt”for Output As #1 (1分)

For i = 1000 To 9999 (1分)

s = Trim(Str(i)) (1分)

If Mid(s, 1, 1) = Mid(s, 4, 1) And Mid(s, 2, 1) = Mid(s, 3, 1) Then (2分)

Print #1, s (1分)

End If

Next i

Close #1

End Sub

ViSual Basic程序设计上机试题

考试要求:

1、考试时间为2个小时。

2、不得使用U盘,不得使用VB课件:违反此要求者按作弊处理。

3、考试目录为F:\Source,要求将程序保存到该文件夹下。

4、每完成一题,在该文件夹中保存以题目序号命名的frm和vbp文件。例如第二题的结果保存为2.frm和2.vbp。

第一题:20分

1、设计一个如下界面的成绩计算程序。其中总评成绩中平时占20%,期中和期末各占30%和50%。程序结果保存为1.frm和1.vbp。

参考代码:

Private sub Command1_Click()

Label1.caption=0.2*val(text1)+0.3*val(text2)+0.5*val(text3)

End Sub

Private sub Command2_Click()

Text1=””: Text2=”” : Text3=””

Text1.setfocus

End Sub

第二题:20分

一个四位数,各位之和等于其前两位,各位之积各于其后二位,试求之。界面自定。程序结果保存为2.frm和2.vbp。

参考答案:

该题的结果为1236

For a=1 to 9

For b=0 to 9

For c=0 to 9

For d=0 to 9

X=1000*a+100*b+10*c+d

If a+b+c+d=10*a+b and a*b*c*d=10*c+d then print x

Next d,c,b,a

第三题:20分

3、设计一个如下界面的菜单程序,要求效果:单击菜单项可调出相应功能。提示:Shell函数的格式为shell 路径,1。程序结果保存为3.frm和3.vbp。

程序结果保存为3.frm和3.vbp。

参考程序:

Private Sub Mnote_Click()

Shell "notepad.exe", 1

End Sub

Private Sub MExit_Click()

End

End Sub

第四题:25分

编程实现如下程序,当在列表框中单击某一学生姓名时,在文本框出现学生的籍贯。相应的学生信息如下表:

序号姓名籍贯

1 王芸姗安徽

2 林丽菲辽宁

3 张雪涛陕西

要求的程序界面:

程序结果保存为4.frm和4.vbp。

参考答案:

Dim a, b

Private Sub Form_Load()

a = Array("王芸姗", "林丽菲", "张雪涛")

b = Array("安徽", "辽宁", "陕西")

For i = LBound(a) To UBound(a)

List1.AddItem a(i)

Next i

End Sub

Private Sub List1_Click()

Text1 = b(List1.ListIndex)

End Sub

第五题:25分

用形状控件在窗体上画一个蓝色小球,运行时可用上、下、左、右四个方向键控制其移动。程序界面为:程序结果保存为5.frm和5.vbp。

参考程序:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case vbKeyUp: Shape1.Move Shape1.Left, Shape1.Top - 100

Case vbKeyDown: Shape1.Move Shape1.Left, Shape1.Top + 100

Case vbKeyLeft: Shape1.Move Shape1.Left - 100, Shape1.Top

Case vbKeyRight: Shape1.Move Shape1.Left + 100, Shape1.Top

End Select

End Sub

第六题:20分

颜色拾取程序:单击“选取颜色”按钮后,出现调色板,选中某种颜色后,改变文本框的背景色。界面如下:程序结果保存为6.frm和6.vbp。

参考程序:

Private Sub Command1_Click()

CommonDialog1.ShowColor

Text1.BackColor = CommonDialog1.Color

End Sub

第七题:20分

数据库浏览程序,显示NWIND.MDB中Employees表中的Photo字段。提示:数据库的位置在d:\program files\microsoft visual studio\vb98,照片显示采用OLE控件。程序结果保存为7.frm和7.vbp。

参考答案:

采用data控件,设置属性Databasename和Recordsource;

Ole控件的属性设置是Datasource和datafield

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考试题库

大学VB考试题库 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是()。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句:a=123& MID("123456",3,2)执行后,a变量中的值是()。 A、"12334" B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件,这两个文件分别是(B)。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(C)。 A、https://www.wendangku.net/doc/e8481205.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上机综合测试题(十五套)

VB上机综合测试题(一) 一、如下所示,在窗体上,放置一个文本框text1(文本框中的文字为“改变字形”,居中显示)。三个复选框check1,check2和check3,如图设置属性。要求:当用户单击“加粗”、“斜体”、“下划线”这三个复选框时(即当复选框被选中时)能将文本框的字形变为“粗体、斜体、加下划线”(25分) 二、在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作:①随机产生20个0到1000的整数,将其放入一个一维数组中②求出所有元素的平均值,并显示在窗体上(如下图所示)(35分) 三、请设计如下图所示窗体界面。运行程序时,先向左侧文本框中输入一个不超过10的正整数,然后选择"N的阶乘"或"(N+2)的阶乘"单选钮,即可进行计算,计算结果在右侧文本框中显示。请编写程序完成上述功能。(40分)

答案: 一、 界面设计------10分 Private Sub Check1_Click() = ------5分 End Sub Private Sub Check2_Click() = 分 End Sub Private Sub Check3_Click() = ------5分 End Sub 二、 界面设计------10分 Private Sub Cmd1_Click()------2分Dim a%(19), i%, sum!, aver! ------4分Randomize ------3分 For i = 0 To 19------3分 a(i) = Int(Rnd * 1001) ------3分 sum = sum + a(i) ------3分 Next i ------2分 aver = sum / 20 ------3分 Print aver ------2分 End Sub 三、 界面设计------10分 Dim? n%------2分 Private Sub Form_Load() 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考试题及答案

计算机二级VB考试题及答案 为了使广大考生在备战计算机等级考试时,更快的掌握相应知识点,下面是搜索的计算机二级VB考试题及答案,供参考练习,预祝考生们考出自己理想的成绩! 1.在窗体上画一个名称为Text1的文本框,一个名称为Command1的命令按钮,然后编写如下事件过程和通用过程: Private Sub Command1_Click( ) n = Val(Text1.Text) If n2 = n/2 Then f = f1(n) Else f = f2(n) End If

Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(ByVal x) x=x*x f2=x+x+x End Function 程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是(D)(单)

A.72 36 B.108 36 C.72 6 D.27 3 2.在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) c = "1234" For i = 1 To 4 c1 = Trim(Str( )) Print c1

Next i End Sub 程序运行后,单击命令按钮,要求在窗体上显示如下内容 12 123 1234 则在下划线处应填入的内容为(B)(单) A.Right(c1,i) B.Left(c1,i) C.Mid(c1,i,1) D.Mid(c1,i,i)

VB上机程序调试题_题目及参考答案

第二部分VB上机考试模拟试题 一、程序调试题(改错或填空) (二)程序调试题 [题1] Modify.bas模块中的getanswer过程是用于计算一元二次方程的根,并将结果输出来。 Option Explicit Public Sub getanswer() '该过程是用于计算一元二次方程的根,并将结果输出来。 Dim dalt!, a#, b#, c# a = InputBox("输入系数a") b = InputBox("输入系数b") c = InputBox("输入系数c") dalt = b * b - 4 * a * c If ----1---- dalt >0 then dalt = Sqr(dalt) MsgBox Format((-b + dalt) / 2 / a), "0.00" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") Elseif ---2---- dalt =0 then MsgBox Format(-b / 2 / a, "0.00") + Chr(13) + Chr(10) + Format(-b / 2 / a, "0.00") Else dalt= ---3---- Sqr(-dalt) MsgBox Format((-b + dalt) / 2 / a, "0.00") + "+i" + Chr(13) + Chr(10) + Format((-b - dalt) / 2 / a, "0.00") + "-i" End If End Sub [题2] 打印输出一菱形图案。 Public Sub prt() '打印由#组成的菱形图案 ' # ' ### ' ##### ' ####### ' ######### ' ####### ' ##### ' ### Dim start As String '每行起始空格数 Dim count As Integer '每行#个数 For i = 1 To 9 If i <= 5 Then '------1------ start=space(21-i) count = 2 * i - 1 Else start = Space(11 + i) '-------2------ count=19-2*i End If '------3------ form1.print start; For j = 1 To count Form1.Print "#"; Next j '------4------ form1.print Next i [题3] 过程pyramid用以打印一个数字金字塔,请在横线上填入必要的内容(将横线删除掉后填入正确的内容),使其完整。 Option Explicit Public Sub pyramid() '打印数字金字塔 ' 1 ' 222 ' 33333 ' 4444444 ' 555555555 ' 6666666 ' 77777 ' 888 ' 9 Dim i As Integer Dim j As Integer Dim start As String '每行起始空格数 Dim num As Integer '每行数字个数 For i = 1 To 9 If i <= 5 Then start = Space(20 - i) num = 2 * i - 1 Else start= '------1------ Space(10 + i) num= '------2------ 2 * (10-i) - 1 End If Form1.Print start; For j = 1 To num '------3------ form1.print trim(str(i)); Next j '------4------ form1.print Next i End Sub [题4] 改错。 Option Explicit Public Sub prt() '打印由数字组成的如下所示金字塔图案 ' 9 ' 888 ' 77777 ' 6666666 ' 555555555 ' 44444444444 ' 3333333333333 ' 222222222222222 ' 11111111111111111 Dim i As Integer, j As Integer '****** 错误1 ****** For i = 9 To 1 step -1 Form1.Print Space(i); '****** 错误2 ****** For j = 1 To 2 *(10- i) - 1 '****** 错误3 ****** Form1.Print trim(str(i)); Next j

VB考试题及答案

VB程序设计期末考试题 一、选择题 1 下列常量中,是Integer类型常量的是( C )。 A、123& B、-38844 C、123% D、32768 2 下面选项中()是字符连接运算符. A A、& B、And C、% D、Mod 3 下面关于VB的集成开发环境(IDE)的叙述中,不正确的是( B )。 A、IDE是设计、调试、运行VB程序的工具。 B、用户不能随意关闭IDE中的窗口。 C、"窗体设计" 窗口是用来设计应用程序界面(窗体)的。 D、打开 / 关闭各窗口的命令主要在IDE的"视图"菜单中。 4 len(“vb程序设计”)=( C ) 。 A、 5 B、2 C、 6 D、10 5 表达式 15 Mod 4 + 13 \ 5 * 2 的值是 D A、7 B、0 C、2 D、4 6 赋值语句A=123 + Mid$( “123456”,3,2) 执行后,A=(A)。 A、157 B、12334 C、123 D、"12334" 7 在一个语句内写多条语句时,用来分隔每条语句的符号是(C). A、, B、; C、: D、、 8 将逻辑型数据转换成整型数据时,转换规则是( D )。 A、将True转换为 1 ,将False转换为 0 B、将True转换为 1 ,将False转换为 -1 C、将True转换为 0 ,将False转换为 -1 D、将True转换为 -1 ,将False转换为 0 9 表达式2+3*4^5-SIN(X+1)/2中最先进行的运算是(D).

A、SIN B、4^5 C、3*4 D、x+1 10 如果x=2,则表达式x+1>2 Or sin(x)>0.9 And 3>x+3的值( B )。 A、不能计算 B、 True C、5 D、False 11 随机产生[10,50] 之间整数的正确表达式是( D )。 A、Round( Rnd*50) B、 Int(Rnd*40+10) C、Round( Rnd*51) D、 10+Int(Rnd*41) 12 每建立一个窗体,工程管理器窗口中就会增加一个(C). A、类模块文件 B、工程文件 C、窗体文件 D、程序模块文件 13 INT(100*RND(1))产生的随机整数的闭区间是(B). A、[1,100] B、[0,99] C、[0,100] D、[1,99] 14 下列数据类型中,占用内存最小的是(D). A、Integer B、Single C、Boolean D、Byte 15 VisualBasic是一种()程序设计语言.B A、过程式 B、非过程式 C、机器 D、低级 16 函数Int(10*Rnd)是在(A)范围内的整数. A、[0,9] B、[0,1] C、[1,9] D、[1,10] 17 以下合法的一组Visual Basic用户标识符是 C A、Sum 和 8abc B、a#x 和 Pi C、ForLoop 和 Total D、Const 和 DoWhile

VB考试题库,二级习题(含答案)

V B考试题库,二级习题 (含答案) https://www.wendangku.net/doc/e8481205.html,work Information Technology Company.2020YEAR

VB考试一 1、能够获得一个文本框中被选取文本的内容的属性是______。 A:SelStart B:SelLength C:SelText D:Text 参考答案:C 2、在窗体上画一个文本框,其名称为Text1,为了在程序运行后隐藏该文本框,应当使用的语句为:______。 A:Text1.Enabled = False B:Text1.Hide C:Text1.Clear D:Text1.Visible = False 参考答案:D 3、对于语句 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 为赋值语句 参考答案:D 4、以下变量名中,______是不符合Visual Basic的命名规范的。 A:_mnu_Open_234 B:Abc901 C:price_ D:K 参考答案:A 5、MsgBox 函数返回值的类型是__________。 A:数值或字符串 B:字符串 C:变体 D:整型数值 参考答案:D 6、VB一共有设计、运行和中断三种模式,要使用调试工具应该______。 A:进入中断模式 B:进入运行模式 C:进入设计模式 D:不用进入任何模式 参考答案:A 7、设a=6,则执行 x=IIF(a>5,-1,0) 后,x的值为______。 A:-1 B:6 C:0 D:5 参考答案:A 8、可以同时删除字符前导和尾部空白的函数是______。 A:Mid B:Rtrim C:Trim D:Ltrim 参考答案:C 9、以下语句的输出结果是______。 Print Format$("32548.5","000,000.00")

VB练习题(上机)含答案

第一部分 1 在窗体上添加一个命令按钮(名称为Cmd1,标题为"输出平均值")。程序运行后,单击命令按钮完成以下工作: ①随机产生20个0到1000的整数,将其放入一个一维数组中 ②求出所有元素的平均值,并显示在窗体上(如下图所示) Private Sub Cmd1_Click() Dim a%(19), i%, sum!, aver! Randomize For i = 0 To 19 a(i) = Int(Rnd * 1001) sum = sum + a(i) Next i aver = sum / 20 Print aver End Sub 2 请在名称为Form1的窗体上添加一个名称为Text1的文本框和一个名称为C1、标题为"转换"的命令按钮,如下图所示。在程序运行时,单击"转换"按钮,可以把Text1中的小写字母转换为大写,把大写字母转换为小写,其他字符不变。 Private Sub C1_Click() Dim ch As String, ch1 As String, i% ch = Text1 For i = 1 To Len(ch) If Asc(Mid(ch, i, 1)) >= 65 And Asc(Mid(ch, i, 1)) <= 90 Then ch1 = ch1 + LCase(Mid(ch, i, 1)) Else

ch1 = ch1 + UCase(Mid(ch, i, 1)) End If Next i Text1 = Text1 + vbCrLf Text1 = Text1 + ch1 End Sub 3 在窗体上添加一个命令按钮(名称为MyCmd1,标题为"输出最大值")。程序运行后,单击命令按钮完成以下工作: ①随机产生30个0~1000的整数,将其放入一个一维数组中 ②求出其中的最大值,并显示在窗体上。 Private Sub MyCmd1_Click() Dim a%(29), i%, max% Randomize For i = 0 To 29 a(i) = Int(Rnd * 1001) Next i max = a(0) For i = 1 To 29 If a(i) > max Then max = a(i) Next i Print max End Sub 4 请设计如下图所示窗体界面。程序运行时,在选中一个或两个复选框和一个单选按钮时,单击命令按钮,则对文本框中的文本内容做相应的设置。请编写适当的事件过程,完成上述功能。

vb考试题及答案

1.下列不是VB常量的是 B 。 A)3.14 B)′Name ′ C)#10/18/2007# D)True 2.确定控件在窗体上位置的属性是 C 。 A)Width 和Height B)Width 和Top C)Top 和Left D)Top 和Height 3.数学表达式1≤X<10表示成正确的VB表达式为 B 。 A)1≤X<10 B)X>=1 And X<10 C) X>=1 Or x<10 D) X>=1 And <10 4. 下面的__ B ___语句可以实现:先在窗体上输出大写字母A,然后在同一行的第10列输出小写字母b。 A)Print "A";Tab(9);"b" B)Print "A";Spc(8);"b" C)Print "A";Space(10);"b" D)Print "A";Tab(8);"b" 5. 下列控件中,不能改变大小的控件是 D 。 A)TextBox B)Label C)Frame D)Timer 6.Visual Basic过程的编写是在 D 中进行的。 A)窗体窗口B)工程资源管理器窗口C)属性窗口D)代码编辑窗口 7. 在Visual Basic中,声明全局变量应该用 D 关键字。 A)Dim B)Private C)Static D)Public 8. 在Visual Basic表达式中,运算符的运算顺序为 A 。 A)算术运算符—>字符串运算符—>关系运算符—>逻辑运算符 B)逻辑运算符—>关系运算符—>字符串运算符—>算术运算符 C)字符串运算符—>算术运算符—>关系运算符—>逻辑运算符 D)关系运算符—>逻辑运算符—>算术运算符—>字符串运算符 9. 下列属于非法调用的函数是 A 。 A)sqr(-5) B)Sgn(-5) C)Exp(-5) D)Int(-5) 10. 下列能够正确输出”a=8”形式的语句是 B 。 A)print a=3+5 B)pirnt “a=”;3+5 C)print “a=3+5”D)print a=;3+5 11. 下列符号中,可以用作VB变量名的是 C 。 A)x.y.z B)3xyz C)x_yz D)Integer 12. 可以删除字符串两端空格的函数是 A 。 A)Trim B)Rtrim C)Ltrim D)Mid 13. 函数Int(Rnd*80)+1是在 D 范围内产生随机整数。 A)[0,80] B)[0,79] C)[1,79] D)[1,80]

vb题库及答案

| 最新VB题库及答案 一、选择题 第1部分 1、在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写一个事件过程。程序运行后,如果在文本框中输入一个字符,则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是 A、Private Sub Text1_Change() = "计算机等级考试" End Sub ] B、Private Sub Command1_Click() Caption = "计算机等级考试" End Sub C、Private Sub Form_Click() = "计算机等级考试" End Sub D、Private Sub Command1_Click() = "计算机等级考试" { End Sub 2、在一行内写多条语句时,每个语句之间用()符号分隔。 A、 , B、: C、. D、; 3、下面()是合法的变量名。 A、X_YZ B、123ABC C、INTEGER D、X-Y ] 4、下面()是合法的字符常量。 A、 ABC$ B、“ABC” C、‘ABC’ D、 ABC 5、表达式16/4 - 2^5*8 MOD 5\2的值为()。 A、14 B、 4 C、20 D、2 6、设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) 7、设a="a",b="b",c="c",d="d",执行语句x = IIf((a < b) Or (c > d), "A",

vb经典题目及答案

1、在考生文件夹下有工程文件wy7、vbp及窗体文件wy7、frm,该程序就是不完整的,请在有?号的地方填入正确的程序代码,然后删除?及所有注释符号(即 '号),但不能修改其它部分。修改后的程序文件都保存,存盘时不得修改文件夹与文件名。 本题描述如下: 在窗体上有一个名为Text1的文本框,有三个命令按钮,名称分别就是C1、C2与C3,标题分别就是"读入"、"加密"与"存盘"。要求程序运行后,点击"读入"按钮,将文本文件in7、txt(该文件在考生文件夹下)中的文本信息读入文本框Text1中;点击"加密"按钮将Text1中的英文字母加密转换,并将转换后的结果显示到Text1中。转换方式为转换成该字母对应字母表中后两个位置的字母。例如,转换前的字母就是"a",则转换后的就是"c",转换前就是"E",转换后就是"G";点击"存盘"按钮, 则将转换后的文本框中的文本保存到out7、txt 文件中(该文件保存到考生文件夹下)。 Private Sub C1_Click() Dim strinfo As String Open "in7、txt" For Input As 1 Input #1, strinfo Close #1 Text1、Text = strinfo End Sub Private Sub C2_Click() Dim strchange As String Dim i As Integer For i = 1 To Len(Text1、Text) strchange = strchange + Chr(Asc(Mid(Text1、Text, i, 1)) + 2) Next Text1、Text = strchange End Sub Private Sub C3_Click() Open "out7、txt" For Output As 1 Print #1, Text1、Text Close #1 End Sub 2、(1)在考生文件夹下有工程文件wy5、vbp及窗体文件wy5、frm,该程序就是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即'号),但不能修改其它部分。存盘时不得改变文件名与文件夹。本题描述如下: 在窗口中有一个RichText文本框控件(名称为rtx1)与一个文本框控件(名称为Text1),两个命令按钮,名称 分别为Command1与Command2,标题分别为"加入WY01、TXT"、"统计字符个数"。要求程序运行后,单击command1将考生文件夹下的wy01、txt的内容显示到rtx1中;单击"统计字符个数"按钮统计Text1中有多少个字符,将结果显示在Text1中。

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.制作如图所示窗体界面。(用真实的姓名、班级及学号) 2.使时间每隔1秒刷新一次 3.单击“最大值”命令按钮时,算出通过键盘输入的5个数的最大 值 4.在列表框中输入20、22、24、26、28 Private Sub Command1_Click() Dim a(1 To 5) As Integer For i = 1 To 5 a(i) = InputBox("please input a number") Next i mmax = a(1) For i = 1 To 5 If a(i) > mmax Then mmax = a(i) End If Next i MsgBox mmax End Sub Private Sub Timer1_Timer() Label2.Caption = Time End Sub 第二题 1.两个文本框里输入两个数字从而确定一个范围。 2.单击“计算”按钮求出这个范围中能被3或5整除的数的平方和, 结果显示在label3中。 https://www.wendangku.net/doc/e8481205.html,bel3的背景色每隔1.5秒蓝红交替。

Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = Text1.Text b = Text2.Text s = 0 For i = a To b If a Mod 3 = 0 Or b Mod 5 = 0 Then Label3.Caption = Label3.Caption & i & "," s = s + i * i End If Next i Label3.Caption = s End Sub Private Sub Timer1_Timer() If Label3.BackColor = vbRed Then Label3.BackColor = vbBlue Else Label3.BackColor = vbRed End If End Sub 第三题 1、单击按钮,在文本框中显示1到终值的所有整数的平方和 2、单击生成列表按钮,在列表框中显示1到终值之间的所有整数 Private Sub Command1_Click()

VB上机考试习题以及答案

VB上机考试 1、利用随机函数产生25个100到999之间的整数,构成5 5的矩阵,输出该矩阵。Dim a(1 To 5, 1 To 5) Private Sub Form_Click() Ran domize For i = 1 To 5 Forj = 1 To 5 a(i, j) = Int(Rnd * (999 - 100 + 1) + 100) Print a(i, j); Next j Print Next i End Sub 2、利用随机函数产生25个10到99之间的整数,求其平均值(要求保留3位小数,第4 位四舍五入)。Private Sub Form_Click() For i = 1 To 25 a = In t(R nd * (99 - 10 + 1) + 10) Print a; s = s + a Next i Print Avg = s / 25 Print Avg End Sub 3、在窗体上按下鼠标的右键,记录其坐标。 Private Sub Form_Load() Label1.BorderStyle = 1 Label1.Alig nment = 2 End Sub Private Sub Form_MouseDow n(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle) If Butt on = 2 The n Label1.C apti on = X & "," & Y End If End Sub 4、利用随机函数产生25个10到99之间的整数,按从小到大的顺序显示。Dim a(1

VB考试题及答案

1、VB应用程序中可以包括三种模块:( 窗体模块)、( 标准模块) 和类模块。 2、下列过程不能在标准模块中定义的是( A )。 A、事件过程 B、子过程 C、函数过程 D、公共过程 3、以下叙述中错误的是D A、如果过程被定义为Static类型,则该过程中的局部变量都是Static类型 B、Sub过程中不能嵌套定义Sub过程 C、Sub过程中可以嵌套调用Sub过程 D、事件过程可以像通用过程一样由用户定义过程名 2、在某一窗体模块中定义的全局级过程,若被该模块外的模块所调用,必须在该过程名前加上( 窗体名称)。 2、自定义的过程有两种形式:_Sub_和_Function_。 3、用于退出过程的语句是( D )。 A、Exit B、Exit For C、Exit Do D、Exit Sub 4、在过程的参数列表中列入__ Optional __关键字,就可以指定过程的参数为可选的。 5、如果使用Call关键字来调用一个需要参数的过程,参数就必须要加上__括号__。 1、在窗体代码中有以下事件过程的声明,其中Private表示( B ) Private Sub lblAbc_Change() …… End Sub A、此过程可以被任何其它过程调用 B、此过程只可以被本窗体模块中的其它过程调用 C、此过程不可以被其它过程调用 D、此过程只可以被本工程中的其它过程调用 9、假定已定义了一个过程Sub Add(a As Single,b As Single),则正确的调用语句是( A )。 A、Add 12,5 B、Call(2*x,Add(1.57)) C、Call Add x,y D、Call Add(12,12,x) 10、要想在过程调用后返回两个结果,下面的过程定义语句合法的是( C )。 A、Sub Procl(ByVal,n,ByVal m) B、Sub Procl(n,ByVal m) C、Sub Procl(n,m) D、Sub Procl(ByVal n,m) 6、写出单击命令按钮Command1时的窗体显示结果。 Public Sub Proc(ByRef n As Integer,ByVal m As Integer) n=n Mod 10 m=m\10 End Sub Private Sub Command1_Click() Dim x as Integer,y As Integer x=15:y=30 Call Proc(x,y) Print x;y

VB期末考试上机题编程答案

VB期末考试上机题编程答案 1.新建一个工程,编写一个找出所有四位荣幸数显示在列表框中,并将荣幸数的个数显示在文本框中。所谓荣幸数是指凡前两位数字之和等于后两位数字之和的四位数。将原窗体文件和工程文件分别另存为为和,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件无法上传,后果自负! 详尽要求: 1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2、单击“查找“按钮,则开始查找并在列表框中显示结果,并在文本框中显示荣幸数的个数; 3、单击“清除”按钮,则将列表框和文本框清空; 4、单击“退出”按钮,结束程序运行; 5、程序中应包含一个过程,用于判断一个数是否是荣幸数。 解:Private Sub Command1_Click() Dim i As Integer, a As Integer For i = 1000 To 9999 If k(i) Then i: a = a + 1 Next i = a End Sub Private Sub Command2_Click() = ““ End Sub Private Sub Command3_Click()

End End Sub Private Function k(n As Integer) As Integer Dim i As Integer, a As Integer, s1 As Integer, s2 As Integer Dim s As String s = CStr(n) For i = 1 To Len(s) / 2 s1 = s1 + Mid(s, i, 1) s2 = s2 + Mid(s, Len(s) + 1 - i, 1) Next i If s1 = s2 Then k = True End Function 2.新建一个工程,编写求某一自然数因子和的程序。要求通过文本框获取输入的自然数,计算后将所计算得到的因子和显示在另一文本框中。将原窗体文件和工程文件分别另存为为和,保存在D盘的VBTest文件夹中。如不按要求保存,造成文件无法上传,后果自负! 详尽要求: 1、程序参考界面如图所示,编程时不得增加或减少界面对象或改变对象的种类,窗体及界面元素大小适中,且均可见; 2、单击“求和“按钮,则在文本框中显示计算得到的因子和; 3、单击“清除”按钮,则将文本框清空,焦点设置在第一个文本框; 4、单击“退出”按钮,结束程序运行;

相关文档