包含vb.net期末考试题的词条

VB期末考试

第一套

在铁东等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供成都做网站、成都网站设计、成都外贸网站建设网站设计制作定制开发,公司网站建设,企业网站建设,品牌网站制作,网络营销推广,成都外贸网站制作,铁东网站建设费用合理。

一、判断题

1、Visual Basic程序开发的特点是面向对象的事件驱动。（√）

2、Print_Text是一个不合法的变量名。（×）

3、窗体的AutoRedraw属性实现了屏幕图像的重建。（√）

4、设置字体大小应使用Font属性（×）

5、Sub过程可以实现嵌套调用（√）

6、IIF函数中的三个参数都不能省略。（√）

7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√）

8、当终值小于初值时，步长为负数。（√）

9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也

不会执行。（√）

10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用 (√)

二、单项选择题

1．Print Format（123，”####”）执行之后的结果为

A）＃123 B）123 C）123＃ D）＃＃＃＃

2．下面可以表示注释语句开头的为

A）Re B）R C）Rem D）dim

3．下列选项中窗体载入事件为

A）Load事件 B）Click事件 C）DblClick事件 D）Unload事件

4．Timer控件可以使用下列哪种事件

A）Click事件 B）Timer事件 C）Dblclick事件 D）Change事件

5．在InputBox函数中哪一个参数是必须的

A）Prompt B）Buttons C）Title D）Context

6．以下叙述中错误的是：

A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型

B）Sub过程中不能嵌套定义Sub过程

C）Sub过程可以嵌套调用Sub过程

D）事件过程可以像通用过程一样由用户定义过程名

7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。

A）文件 B）视图 C）工程 D）工具

8．在块结构条件语句If-Then / Endif中

(A) 必须至少有一个Elseif语句

(B ) 可以有任意多个ElseIf-Then语句

(D ) 给定的条件只能是关系表达式或逻辑表达式

9．以下Case语句中错误的是

(A) Case 10 To 1

(B) Case Is10

(C)Case Is10 , Is50

(D) Case 3,5,Is10

10．对Do Until…Loop循环，正确的是( )。

A．如果循环条件为常数0，则一次循环也不执行

B．如果循环条件为常数0，则至少执行一次循环

C．如果循环条件是不为0的常数，则至少执行一次循环

D．无论循环条件是否为"True"，则至少执行一次循环

11．语句Dim arr(-3 To 5, 2 To 6) As Integer定义的数组元素有_______个。

A) 45 B) 40 C) 11 D) 54

12．下列关于Option Base语句说法错误的是______D

A) Option Base语句只能出现在窗体层或模块层

B) Option Base语句不能出现在过程中

C) Option Base语句必须位于数组的定义之前

D) Option Base语句只对一维数组有效

13、Visual Basic的特点不包括下面的（A）

A 不需编程 B 面向豆象的程序设计

C 可视化程序设计 D 时间驱动的程序设计

14、从键盘上能够输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（D）

A Left B Mid

C String D Instr

15、如果将布尔常量值True赋值给一个整型变量，则整型变量的值为（B）

A 0 B -1

C True D false

16、下列符号常量的声明中，（C）是不合法的。

A Const a As Single = 1.1 B Const a As Integer = “12”

C Const a As Double = Sin(1) D Const a =”OK”

17、四个字符“E”,“y”,“B”,“8”的ASCII码值最大的是（B）

A “E” B “y”

C “B” D “8”

18、将变量k四舍五入保留2位小数的表达式是（C）

A Int((k+0.5)*100)/100 B Int((k*100)/100)+0.5

C Int(k*100+0.5)/100 D Int(k*(100+0.5))/100”

19、30．将数学表达式Cos2(a+b)+5e2写成Visual Basic的表达式，其正确的形式是（A）

A) Cos(a+b)^2+5*exp(2) B) Cos^2(a+b)+5*exp(2)

C) Cos(a+b)^2+5*ln(2) D) Cos^2(a+b)+5*ln(2)

20、在顺序文件中，当使用Write#语句时，文件打开的方式必须是（B）

A Output和Input B Output和Append

C Output D Append

三、程序分析题

1．以下语句的输出结果是（注：■表示一个空格）

a = 123

b = 456

Print a; b

A）123■456 B）■123■456 C）■123■456■ D）■123■■456

2．下列程序执行的结果为

x = -6 ^ 2

Print Sgn(x) + Abs(x) + Int(x)

A）－36 B）1 C）－1 D）－72

3．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1的标签，然后编写如下的事件过程：

Private Sub Command1_Click()

s = 0

For i = 0 To 15

X = 2 * i - 1

If X Mod 3 = 0 Then s = s + 1

Next i

Label1.Caption = s

End Sub

程序运行后，单击命令按钮，则标签中显示的内容为

A）1 B）5 C）27 D）45

4．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2、Label3的标签，然后编写如下的事件过程：

Private x As Integer

Private Sub Command1_Click()

Static y As Integer

Dim z As Integer

n = 10

z = n + z

y = y + z

x = x + z

Label1.Caption = x

Label2.Caption = y

Label3.Caption = z

End Sub

运行程序后，连续三次单击命令按钮后，则三个标签中显示的内容分别是

A）10 10 10 B）30 30 30 C）30 30 10 D）10 30

5．在窗体上画一个名称为Command1的命令按钮，一个名称为Label1、Label2的标签，然后编写如下的事件过程：

Private x As Integer

Private Sub Command1_Click()

x = 5: y = 3

Call Proc(x, y)

Label1.Caption = x

Label2.Caption = y

End Sub

Private Sub Proc(ByVal a As Integer, ByVal b As Integer)

x = a * a

y = b + b

End Sub

运行程序后，则两个标签中显示的内容分别是

A）5和3 B）25和3 C）25和6 D）5和6

6.下面程序段求两个数中的大数，不正确的是

（A）If x＞y Then Max=x Else Max=y

（B） Max=IIf(x＞y,x,y)

（C）If y＞=x Then Max=y

Max=x

(D)If y＞x Then Max=y

Max=x

7．如果x的值大于或等于y的立方，则打印“OK”，表示这个条件的单行格式的If语句是

A）If x=y^3 Print “OK”

B）If x=y*y*y Then “OK”

C）If x=y^3 Then Print “OK”

D）If x=y*y*y Then Print “OK” End If

8．下列程序段执行结果为

x = 5

y = -6

If Not x 0 Then x = y - 3 Else y = x + 3

Print y - x; x - y

A) 3 －3

B) －9 5

C) －3 3

D) 5 －6

9．已知x的值，计算分段函数f(x)，下面选项不正确的是

当 x＞=1， f(x)= ；

当x＜1 ，f(x)= x2+3

(A) Select Case x

Case Is1

f= x^2+3

Case else

f=sqr(x+1 )

End Select

(B) Select Case x

Case x=1

f=sqr(x+1 )

Case x1

f= x^2+3

End Select

(C ) Select Case x

Case Is=1

f=sqr(x+1 )

Case Is1

f= x^2+3

End Select

(D) IF x=1 then f=sqr(x+1 ) else f= x^2+3

10．执行完下面的程序段后，循环执行了( )次。

For i = 1.7 To 5.9 Step 0.9

a = a + 1

Print a

Next I

A．3 B．4 C．5 D．6

11．下列程序段的执行结果为( )。

n = 0

j = 1

Do Until n 2

n = n + 1

j = j + n * (n + 1)

Loop

Print n; j

A．0 1 B．3 7 C．3 21 D．3 13

12．以下正确的For…Next结构是

（A） For x=1 To 10

for y=1 to 10

…

（B）For x=1 To 10

for y=1 to 10

…

Next y , x

（C）For x=1 To 10

for y=1 to 10

Next x

Next y

（D）For x=1 To 10

for y=1 to 10

…

Next x , y

13．下列程序中，第一个Do语句共执行了( )次循环。

Dim i As Integer, j As Integer

i = 1

j = 1

Sum = Sum + j

j = j + 2

Print j;

Loop Until j 3

i = i + 2

Loop Until i 10

Print Sum

A．10 B．20 C．5 D．7

14．下列语句中，a是一个数组，则使用正确的是______

A) Option Base 2

B) Redim a

C) Erase a

D) a = Array()

15.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：

Private Sub Command1_Click()

Dim array1(10, 10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

for j = 2 To 4

array1(i, j) = i + j

next j

next i

Text1.Text = arrry1(2, 3) + array(3, 4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是______

A) 12 B) 13 C) 14 D) 15

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

Private Sub Command1_Click()

Dim a (10,10) As Integer

Dim i As Integer, j As Integer

For i = 1 To 3

for j = 1 To 3

a (i, j) = (i – 1) * 3 + j

Print a(i, j );

next j

next i

End Sub

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

A) 1 2 3

2 4 6

3 6 9

B) 2 3 4

3 4 5

4 5 6

C) 1 4 7

2 5 8

3 6 9

D) 1 2 3

4 5 6

7 8 9

17.设有如下程序：

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);

End Sub

程序运行后，单击窗体，则在窗体上显示的是______

A) 4 3 2 1 B) 5 4 3 2 C) 6 5 4 3 D) 7 6 5 4

18．执行以下Command1的Click事件过程在窗体上显示_______。

Private Sub Command1_Click()

Dim a

a = Array(“a”,”b”,”c”,”d”,”e”,”f,”,”g”)

Print a(1); a(3); a(5)

End Sub

A) a b c B) b d f C) a c e D) 出错

19、设有语句

Open"c:\Test.Dat"For Output As#1

则以下错误的叙述是（B）

A）该语句打开C盘根目录下一个已存在的文件Test.Dat

B）该语句在C盘根目录下建立一个名为Test.Dat的文件

C）该语句建立的文件的文件号为1

D）执行该语句后，就可以通过Print#语句向文件Test.Dat中写入信息

20、以下代码完成对顺序文件test1.txt追加打开的是（C）

A）Open test1.txt For Input As #1

B）Open test1.txt For Output As #1

C）Open test1.txt For Append As #1

D）Open test1.txt For Redom As #1

四、上机题

1．小王有存款A元，年利率为P,存储时间为T年.请编写一个程序计算本利合计。（A 、P、 T均使用Inputbox输入）

2．求100以内的素数，素数是指一个数x除了1和它本身，不能被其他任何整数整除。要求每行输出10个素数。

单击窗体，运行结果如图所示：

答案

在单击窗体的事件过程中添加代码，程序代码如下：

Private Sub Form_click()

Const N = 100

Dim i, j, Line, a(N) As Integer

For i = 0 To N - l ' 置初值

a(i) = i

Next i

For i = 2 To Sqr(N)

For j = i + 1 To N

If a(i) 0 And a(j) 0 Then

If a(j) Mod a(i) = 0 Then a(j) = 0 ' 能整除就赋0

End If

Next j

Next i

Print "显示出100以内的素数"

For i = 2 To N - 1

If a(i) 0 Then

Print a(i); Spc(1);

Line = Line + 1

End If

If Line 0 And Line Mod 10 = 0 Then Print ' 每行显示10个数

Next i

End Sub

评分标准：

1、正确给数组赋值（2分）

2、正确判断素数（3分）

3、正确输出显示结果（2分）

4、文件存盘（2分）

5、程序结构合理、清晰（1分）

求一些大一的vb期末考试题和答案

我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！

一、单项选择题（共10分）

1．在代码中引用一个控件时，应使用控件的（）属性。

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

2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（）的值为“假”。

A．x+a = b-y B． x 0 AND y 0

C．a = b OR xy D． x+y a+b AND NOT (y b)

3．表达式Int(Rnd*71)+10产生的随机整数范围是（）。

A．（10，80） B．（10，81） C．[10，80] D．[10，81]

4．函数Sgn(3.1416)的返回值是（）。

A．-1 B．0 C．1 D．以上都不对

5．67890属于（）类型数据。

A．整型 B．单精度浮点数 C．货币型 D．长整型

6．下列变量名中正确的是（）。

A．3S B．Print C．Select My Name D．Select_1

7．下列赋值语句（）是有效的。

A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0

8．以下的控件或方法具有输入和输出双重功能的为（）。

A．Print B．Textbox C．Optionbutton D．Checkbox

9．若要获得列表框中被选中的列表项的内容，可以通过访问（）属性来实现。

A．Name B．ListIndex C．ListCount D．Text

10．下列代码的运行结果为（）。

Private Sub command1_click()

Dim m(10)

For k = 1 To 10

m(k) = 11 - k

Next k

x = 5

Print m(2 + m(x))

End Sub

A．2 B．3 C．4 D．5

二、填空题（10分）

1．写出整数n能同时被13和17整除的Basic表达式。

2．代码窗口中有两个下拉列表框：左侧是列表框，右侧是过程列表框。

3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式。

4．函数Len(“abcdef”)的返回值是。

5．设a = 2，b = 5，c = -2，d = 100，则a b = c AND a b = d的值为。

6．要使标签的大小自动与所显示的文本相适应，可以通过设置属性为True来实现。

7．若要在一行书写多条语句，则各语句间应加分隔符，Visual Basic的语句分隔符为。

8．要强制显式声明变量，使用__________语句完成。

9．在VB中，用户定义常量使用语句，声明变量使用语句。

三、将下列数学表达式转换为VB表达式。（6分）

1．a2+2ab+b2 __________________________

2． __________________________

3．8exln10 __________________________

4．2sin(450)cos(450) _______________________________

5． ___________________________________________

6． ___________________________________________

四、判断题，正确打“√”，错误打“×”（10分）

1．在VB中，控件的事件只能通过用户的操作触发。（）

2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。（）

3．保存工程时，窗体文件和工程文件的文件名不能相同。（）

4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。（）

5．同一过程中，数组和简单变量可以同名。（）

6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。（）

7．代码Const Number1=15：Number1=10合法。（）

8．允许将块If-Then语句结构中的所有语句都写在一行上（）

9．定义数组语句Dim a(b) As Integer 是正确的（）

10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。（）

五、根据题意，将下列程序补充完整。（16分）

1．产生20个[10，100] 之间的随机整数，每行输出10个数据。

Private Sub command1_click()

Dim a(1 To 20) As Integer

Randomize

i = 0

Do While i 20

i = i + 1

a(i) = ( )

If （）Then

Print a(i);

End If

If i = 10 Then Print a(i)

If i 10 Then Print a(i);

Loop

End Sub

2．打印九九乘法表

Private Sub command1_click()

For i = 1 To 9

For j = 1 To 9

Print （）

Next j

（）

End Sub

3．判断一个数是否素数

Private Sub command1_click()

x = InputBox("请输入一个整数")

flag = 1

For i = 2 To （ )

If x Mod i = 0 Then

flag = 0

End If

Next i

If （）Then Print x; "是素数" Else Print x; "不是素数"

End Sub

4．利用数组输出Fibonacci数列的前15项。

该数列的第1项和第2项为1，其余各项均为其前两项之和。

Private Sub Command1_Click()

（）

f(1) = 1 : f(2) = 1

List1.AddItem f(1) : List1.AddItem f(2)

For i = 3 To 15

f(i) = （ )

List1.AddItem f(i)

Next i

End Sub

六、写出下面程序的输出结果。（每题3分，共18分）

1． Private Sub command1_click()

x = InputBox("enter x") ' x 的输入值为-8

Select Case Sgn(x) + 2

Case 1

Print "y="; x ^ 2 + 1

Case 2

Print "y="; x - 4

Case 3

Print "y="; x ^ 3 + 100

End Select

End Sub

2． Private Sub command1_click()

Dim a, b, c, d, e As String

a = "Zheng Zhou"

b = "Zhong Yuan Gong Xue Yuan"

c = a + " " + b

d = Left(a, 1) + Mid(a, 7, 1)

e = Left(b, 1) + Mid(b, 12, 1)

Print c

Print d; e

End Sub

3．设有Sub过程：

Private Sub p1(x As Integer, ByVal y As Integer)

x = 4 ：y = 5 ：z = 6

End Sub

则如下程序段的运行结果是:

Private Sub Command1_Click()

Dim x As Integer, y As Integer

x = 1: y = 2: z = 3

Print x, y, z

Call p1(x, y)

Print x, y, z

End Sub

4． Private Sub command1_click()

k = 0

For i = 1 To 3

k = k + 1

a = i * i * k

Print a;

Next i

End Sub

5． Private Sub command1_click()

Dim a(5, 5) As Integer

For i = 1 To 5

For j = 1 To 5

a(i, j) = i * 2 + j

Print a(i, j);

Next j

Next i

End Sub

6．设有Function过程:

Private Function f1(b, a)

a = a * a: b = b * b

f1 = a - b

End Function

则如下程序段的运行结果是什么？

Private Sub command1_click()

a = 4: b = 3

a = f1(a, b)

Print a

End Sub

七．编程题（共30分）

注意：艺术类学生（环艺、装潢、表演、服设）做第1、2、5、6小题；

其他学生做第1、2、3、4 小题。

1．给出一个百分制的成绩，要求输出成绩的相应等级。（7分）

90分以上为“A”，80～89分为“B”，70～79分为“C”，60～69分为“D”，60分以下为“E”。

2．求n!,n由键盘输入。（7分）

3．产生20个 [0，99] 之间的随机整数，并按从小到大的顺序输出。（8分）

4．产生并输出一个6×6的二维数组A：（8分）

（1）两条对角线上元素的值为1，其余元素为小于30的随机整数。

（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。

5．输出1+2+……+100的和，并求出1～100 之间能被17整除的数据的个数（8分）

6．从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）

VB试题答案及评分标准

一、单项选择题（每题1分，共10分）

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

6．D 7．A 8．B 9．D 10．B

二、填空题（每空1分，共10分）

1．n Mod 13=0 And n Mod 17=0

1、对象

3．LEFT(“Visual Basic 6.0”,6)

4．6

5．False

6．Autosize

7．： 8．Option Explict 9．Const Dim

三、将下列数学表达式转换成VB表达式（每题1分，共6分）

1、 a^2+2*a*b+b^2

2、 x^(1/3)*y^(1/4)

3、 8*exp(x)*log(10)

4、 2*sin(3.1416/4)*cos(3.1416/4)

5、 (x+y+z)/sqr(x^2+y^2+z^2)

6、 log(1+abs((a+b)/(a-b)))

四、判断题（每题1分，共10分）

1．× 2．√ 3．× 4．√ 5．×

6．√ 7．× 8．× 9．× 10．√

五、根据题意，将下列程序补充完整（每空1分，共10分）

1．（1） int(rnd*91)+10 （2） I10

2．（1） i*j （2） next i

3．（1）int(sqr(x))或者x-1 （2） flag=1

4．（1）dim f(15) as integer （2）f(I-1)+f(I-2)

六、写出下面程序的输出结果（每题4分，共24分）

1、 y=65

2、 Zheng Zhou Zhong Yuan Gong Xue Yuan 2分

ZZZG 2分

3．1 2 3

4 2 3

4．1 8 27

5．3 4 5 6 7

5 6 7 8 9

7 8 9 10 11

9 10 11 12 13

11 12 13 14 15

6．-7

七、编写程序

1. private sub command1_click()

dim x as integer,grade as string 1分

x=text1.text 1分

select case x 4分

case 90 to 100

grade=”A”

case 80 to 89

grade=”B”

case 70 to 79

grade=”C”

case 60 to 69

grade=”D”

case is60

grade=”E”

case else

msgbox “请重新输入”

end select

print “该学生成绩为”+grade 1分

end sub

2．Private Sub command1_click()

Dim n as integer,f as long 1分

n=text1.text 1分

f=1

for I=1 to n 3分

f=f*I

next I

text2.text=f 2分

end sub

3． Private Sub Command1_Click()

Dim a(1 To 20) As Integer ' 1分

Randomize

For i = 1 To 20 2分

a(i) = Int(Rnd * 100)

Print a(i);

For i = 1 To 19 3分

For j = i + 1 To 20

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 20 2分

Print a(i);

Next i

End Sub

4． Private Sub Command1_Click()

Dim a(1 To 6, 1 To 6) As Integer ' 1分

Dim aver As Single

Randomize

For i = 1 To 6 3分

For j = 1 To 6

If i = j Or i + j = 7 Then

a(i, j) = 1

Else

a(i, j) = Int(Rnd * 30)

End If

Print a(i, j);

Next j

Next i

Max = 0: Min = 30 4分

For i = 1 To 6

s = 0

For j = 1 To 6

s = s + a(i, j)

Next j

aver = s / 6

If aver Max Then Max = aver: row_max = I

If aver Min Then Min = aver: row_min = i

Next i

Print row_max, row_min

End Sub

5． Private Sub Command1_Click()

Dim i As Integer, c As Integer

Dim s As Integer

For i = 1 To 100 4分

s = s + i

If i Mod 17 = 0 Then c = c + 1

Next i

Print "1+2+...+100="; s 2分

Print "能被17整数的数据有"; c; "个" 2分

End Sub

6． Private Sub Command1_Click()

Dim x As Integer

x = InputBox("x=") 1分

Print x;

Max = x: Min = x: s = x 2分

For i = 2 To 10 3分

x = InputBox("x=") ：Print x;

s = s + x

If x Max Then Max = x

If x Min Then Min = x

Next i

Print s / 10 1分

Print Max, Min 1分

End Sub

VB期末考试的几道程序修改题目求解!!!

1.求输入任意两个数的最大公约数~!!

代码如下:Private Sub Command1_Click()

Dim m, n, s As Single

m = Val(Text1.Text)

n = Val(Text2.Text)

'下行已改正

Do While (n 0)

s = m Mod n

m = n

n = s

Loop

'下行已改正

Text3.Text = m

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

End Sub

2.输出100到1000以内的所有水仙花数

Private Sub Command1_Click()

Dim a, b, c

For i = 100 To 999

a = Int(i / 100)

'下行已改正

b = Int((i - a * 100) / 10)

c = i Mod 10

If a * 100 + b * 10 + c = a ^ 3 + b ^ 3 + c ^ 3 Then

'下行已改正

Print a * 100 + b * 10 + c

End If

Next i

End Sub

Private Sub Command2_Click()

End

End Sub

3.设计程序,计算出S=1*(1*2)*(1*2*3)*.....*(1*2*3*....*n)的积

Private Sub Command1_Click()

Dim n As Integer, i As Integer, j As Long, s As Long

n = Val(Text1.Text)

'下行已改正

j = 1

s = 1

For i = 1 To n

j = j * i

'下行已改正

s = s * j

Next i

Text2.Text = s

End Sub

vb期末考试试题谁有啊

这有一份

VB期末考试试题一、填空题

1、VB程序设计的主要特点是（1）和（2）。

2、在VB中，最主要的两种对象是（3）和（4）。

3、工程是构成应用程序文件的（5）。

4、方法是VB提供的一种（6），用来完成一定的操作。

5、浮点类型数据包括单精度型和___（7）__数据。

6、事件是窗体或控件对象识别的___（8）____。

7、可用窗体的___（9）_ 方法在窗体中显示文字。

8、复选框控件Value属性指示复选框处于____（10）___或禁止状态(暗淡的)中的某一种。

9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。

10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。

11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。

12、设x＝34.58，语句Print Format(x,“000.0”)的输出结果是（15）。

13、在VB 中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。

14、设置窗体的（19）属性，可在窗体上显示图片。

15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。

二、选择题

1、菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocus B、Load C、Click D、KeyDown

2、滚动条控件(如图所示)的Max属性所设置的是（2）。

A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值

B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量

C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量

D、滚动条控件无该属性

3、SQL 语句 Select * Form student 中的 *表示（3）。

A、所有记录 B、所有字段 C、所有表 D、都不对

4、以下选项中，不属于标签的属性是（4）。

A、Enabled B、Caption C、Default D、Font

5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。

A、Caption B、Name C、Text D、Label

6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是（6）。

A、Caption B、Name C、Text D、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？（7）。

A、在标题项中输入，然后打勾 B、在索引项中打勾

C、在有效项中打勾 D、在复选项中打勾

8、当执行以下过程时，在窗体上将显示（8）。

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!

9、语句Print "The answer is:";20/4-2的结果为（9）。

A、The answer is 20/4-2 B、The answer is 3

C、The answer is "20/4-2" D、非法语句

10、下列哪个控件是容器控件（10）。

A、Image B、Picture C、ComboBox D、FileListBox

11、若要将窗体从内存中卸载出去，其实现的方法是（11）。

A.Show　 B.Hide　　 C.Load　　 D.UnLoad

12、以下选项中，不是 Visual Basic控件的是（12）。

　 A.窗体 B.定时器 C.单选框　　 D.命令按钮

13、双击窗体中的对象后，Visual Basic将显示的窗口是（13）。

A.代码窗口　 B．工具箱　 C．项目（工程）窗口　 D．属性窗口

14、可决定窗体的左上角是否有控制菜单的属性是（14）。

A.ControlBox B.MinButton

C.MaxButton　　 D.BorderStyle

15、设有如下语句：

Strl＝InputBox（"输人"，""，"练习"）

从键盘上输人字符 “示例”后，Strl的值是（15）。

A．“输入” B．“ ” C．“练习” D．“示例”

16、窗体Form1的Name属性是Frm1,它的单击事件过程名是（16）。

A. Form1_Click B.Form_Click C. Frm1_Click D. Me_Click

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

A.隐藏 B.展现 C.装入 D.卸载

18、若要设置定时器控件的定时时间，需设置的属性是（18）。

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

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

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

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

A．ActiveForm B．Load C．Drive D．Change

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

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

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

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

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

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

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

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

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

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

10、OptionButton控件没有DblCliek事件。

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

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

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

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

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

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

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

18、使用数组定义语句：Dim D$（10），则数组D中各元素的值为空。

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

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

运行程序，第一次单击窗体：

第二次单击窗体：

2、 Private Sub Form_Click()

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

For I = 15 To 16

Print I;

For j = 2 To 6 Step 3

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

Next j

Next I

End Sub

程序运行结果：

五、编程题

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

Private Sub Form_load( )

（1） =loadPicture(“c:\pic\ball.ico”)

（2） .Interval=200

End Sub

Private Sub Timer1_Timer( )

Static x , y As Integer

x=x+100

y=y+100

Picture1.Move （3）

End Sub

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

Private Sub Command1_Click()

Dim x As Integer, N%

Dim Counter As Integer

(1) Timer

For N=1 To 50

X=Rnd()* (2)

If (3) =2 Then

Print x

Counter= (4)

(5)

Next N

Print Counter

End Sub

《VB程序设计与应用》参考答案

一、填空题 1 2 3 4 5

答案可视化设计事件驱动编程窗体（form）控件集合

题号 6 7 8 9 10

答案特殊子程序双精度动作 Print 选中

题号 11 12 13 14 15

答案高度（Height）宽度(Width) 中央工程1 34.6

题号 16 17 18 19 20

答案 0 空 False Picture Cls

二、选择题 1 2 3 4 5

答案 C A B C A

题号 6 7 8 9 10

答案 D D A B B

题号 11 12 13 14 15

答案 D A A A D

题号 16 17 18 19 20

答案 C A C C B

三、判断题 1 2 3 4 5 6 7 8 9 10

答案 Х Х Х √ Х √ √ √ √ Х

11 12 13 14 15 16 17 18 19 20

答案 √ Х √ √ Х Х √ Х Х √

四、程序阅读题：

（一）（10分）

1 、 55

2、 110

（二）、（10分）

* 2 5

15 30 75

16 32 80

五、编程题（20分）

（一）1、Picture1.Picture

2、 Timer1

3、 x ,y

(二) 1、 Randomize

2、 Rnd()*41+60

3、 x Mod 6

4、 Counter＋1

5 End If

一、单项选择题（共10分）

1．在代码中引用一个控件时，应使用控件的（B）属性。

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

2．设变量x = 4，y = -1，a = 7，b = -8,下面表达式（A）的值为“假”。

A．x+a = b-y B． x 0 AND y 0

C．a = b OR xy D． x+y a+b AND NOT (y b)

3．表达式Int(Rnd*71)+10产生的随机整数范围是（C ）。

A．（10，80） B．（10，81） C．[10，80] D．[10，81]

4．函数Sgn(3.1416)的返回值是（C ）。

A．-1 B．0 C．1 D．以上都不对

5．67890属于（ D ）类型数据。

A．整型 B．单精度浮点数 C．货币型 D．长整型

6．下列变量名中正确的是（D）。

A．3S B．Print C．Select My Name D．Select_1

7．下列赋值语句（ A ）是有效的。

A．sum = sum -sum B．x+2 = x + 2 C．x + y = sum D．last = y / 0

8．以下的控件或方法具有输入和输出双重功能的为（B）。

A．Print B．Textbox C．Optionbutton D．Checkbox

9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。

A．Name B．ListIndex C．ListCount D．Text

10．下列代码的运行结果为（B ）。

Private Sub command1_click()

Dim m(10)

For k = 1 To 10

m(k) = 11 - k

Next k

x = 5

Print m(2 + m(x))

End Sub

A．2 B．3 C．4 D．5

二、填空题（10分）

1．写出整数n能同时被13和17整除的Basic表达n Mod 13=0 And n Mod 17=0式。

2．代码窗口中有两个下拉列表框：左侧是(对象)列表框，右侧是过程列表框。

3．写出在字符串 ”Visual Basic 6.0” 中截取 ”Visual” 的Basic表达式LEFT(“Visual Basic 6.0”,6)。

4．函数Len(“abcdef”)的返回值是(6) 。

5．设a = 2，b = 5，c = -2，d = 100，则a b = c AND a b = d的值为False 。

三、将下列数学表达式转换为VB表达式。（6分）

1．a2+2ab+b2 ： a^2+2*a*b+b^2

2．8exln10 ：8*exp(x)*log(10)

3．2sin(450)cos(450) ：2*sin(3.1416/4)*cos(3.1416/4)

6．在VB中，用户定义常量使用 Const 语句，声明变量使用 Dim语句。

新闻标题：包含vb.net期末考试题的词条
当前链接：http://cqcxhl.com/article/doedgjo.html

重庆分公司，新征程启航

包含vb.net期末考试题的词条

VB期末考试

求一些大一的vb期末考试题和答案

VB期末考试的几道程序修改题目求解!!!

vb期末考试试题谁有啊

其他资讯