大一vb期末考试试题

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

我在郑州上学，这是我们的试卷，中原工学院经管院大一的试题希望对你有用！
一、单项选择题（共10分）

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

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

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

A．x+a 0 AND y < 0

C．a = b OR x>y 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 = 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

Print

（ ）

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

Print

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） I<10

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 is<60

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

Next

Print

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

Print

Next i

Print

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

??30、形参表中的各个变量之间用( )分隔。（1分）
A、. B、、
C、, D、;

?31、引用列表框（List1）最后一个数据项应使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)

?32、在下面关于常用的ActiveX控件的说法中，正确的是( )。（1分）
A、在Animation控件中，当用Open方法打开AVI文件后直接自动播放 B、Slider控件有Scroll和Change事件
C、UpDown不能与Slider“捆绑” D、选项卡只可以出现在控件的项端

？1、激活Visual Basic集成环境主菜单的按键是( )。（1分）
A、Alt 或 F10 B、F1
C、F9 D、F5
15、下列关于声明变量的说法中，错误的是( )。（1分）
A、用显示声明变量的关键字Dim,Private,Static或Public来声明变量的类型 B、用类型说明符标记变量类型，类型说明符有：%,&,!,@,$
C、用DefType语句声明变量的类型，其中Type是类型标志 D、用Type/End Type语句声明记录类型变量
？18、表达式1.5+3\2>2 Or 7 Mod 3<4 And Not 1的运算结果是( )。（1分）
A、-1 B、0
C、1 D、其他
28、关于过程级过程参数的描述中，错误的描述是( )。（1分）
A、过程的参数可以是控件名称 B、用数组作为过程的参数时，使用的是“传地址”方式
C、只用函数过程能够将过程中处理的信息传回到调用的程序中 D、窗体可以作为过程的参数
30、形参表中的各个变量之间用( )分隔。（1分）
A、. B、、
C、, D、;
31、引用列表框（List1）最后一个数据项应使用( )。（1分）
A、List1.List(List.ListCount) B、List1.List(List.ListCount-1)
C、List1.List(ListCount) D、List1.List(ListCount-1)

32、在下面关于常用的ActiveX控件的说法中，正确的是( )。（1分）
A、在Animation控件中，当用Open方法打开AVI文件后直接自动播放 B、Slider控件有Scroll和Change事件
C、UpDown不能与Slider“捆绑” D、选项卡只可以出现在控件的项端
问题补充：36、若菜单项前面没有内缩符号“...”表示该菜单项是(
A、主菜单项 B、子菜单项
C、下拉式菜单 D、弹出式菜单
37、下列语句向顺序文件中写入数据，不正确的是( )。（1分）
A、print #1 "this is a test" B、print #1,"this is a test"
C、print #1,spc(5),"this is a test" D、print #1,tab(10),"this is a test"
38、line input #1,str1的意思是( )。（1分）
A、将str1写入打开的1号文件 B、从1号文件中读出一行数据赋予str1
C、将str1作为一行写入1号文件 D、从1号文件中读出一个变量赋予str1
39、在顺序文件中，写入一条记录的正确语句是( )。（1分）
A、put #1,a B、print #1,a
C、write line #1,a D、print line #1,a
40、打开一个新的顺序文件SeqOld.dat，供用户写入数据，指定文件号为2，正确的语句为( )。（1分）
A、open "seqNew.dat" for Input as #2 B、open "seqNew.dat" for Output as #2
C、open seqNew.dat for Input as #2 D、open seqNew.dat for Output as #2

答案1.A 15.D 18.A 28.B 30.C 31.B 32.B36.A 37.A 38.C 39.B 40.A

看哈子,看对你有没有帮助.

单项选择题 判断题 填空题 编程题
1) 下列程序运行后，输出的结果为______。
B=1
Do while (b<40)
b=b*(b+1)
Loop
Print b
a) 42
b) 39
c) 6
d) 1 答案：A
2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。
Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据："))
b(3-K) =a(K+1)
Next K
Print b(K)
a) 1
b) 3
c) 5
d) 0 答案：A
3) 下列程序执行后，变量s的值为______。
Dim s As long ,x As Integer
s=0:x=1
Do While (x<10)
s=s+x
x=x+2
Loop
Print s
a) 10
b) 25
c) 50
d) 100 答案：B
4) 编写如下事件过程：
Private Sub Form_MouseDown(Button As Integer ,Shift As Integer,X As Single,Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出"Hello"，应在窗体上执行以下_______操作。
a) 同时按下 Shift 键和鼠标左键
b) 同时按下 Shift 键和鼠标右键
c) 同时按下Ctrl、Alt 键和鼠标左键
d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D
5) 当变量x=2,y=5时，以下程序的输出结果为____。
Do until y>5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：C
6) 当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15
b) 整数15
c) 字符串5
d) 整数5 答案：A
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
print x
loop until(___)
a) x>=8
b) x<=8
c) x>=7
d) x<=7 答案：A
8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
If a>5 then
if b<4 then
c=a-b
else
c=b-a
End if
elseif b>3 then c=a*b
else
c=a mod b
End if
a) 2
b) -1
c) 1
d) 6 答案：A
9) 设有如下语句：
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后，str1的值是___。
a) “输入”
b) “”
c) “练习”
d) “示例” 答案：D
10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
Private Sub Text1_change( )
Text2.text=ucase(Text1.text)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic" 答案：B
11) 下列程序的运行后s的值是_____。
S=0
For x=99 to 1 Step-2
s=s+x
Next x
Print s
a) 100
b) 500
c) 2500
d) 5000 答案：C
12) 下列程序的执行结果是____。
K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1
b) 1 2 3
c) 0 0 0
d) 1 4 9 答案：A
13) 下列程序的执行结果是_____。
Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I =0 To 5
a(I)=I+1
Print a(I)
Next I
a) 123456
b) 6
c) 654321
d) 0 答案：A
14) 下列程序的执行结果为_____。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=20.2 To 5 Step -4.7
intsum=intsum +I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：C
15) 下列程序的执行结果为_____。
Dim S As Integer,n As Integer
S=0:n=1
Do While n<=100
S=S+n
n=n+1
Loop
Print S
a) 5050
b) 2500
c) 3000
d) 4000 答案：A
16) 下列程序的执行结果为_____。
A=100:b=50
If a>b Then
a=a-b
Else
b=b+a
End if
Print a
a) 50
b) 100
c) 200
d) 10 答案：A
17) 下列程序的执行结果为________。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=0 To 50 Step 10
intsum=intsum+I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：A
18) 下面程序执行后，X的结果为_____。
X=0
For I =1 to 5
For j=I to 5
X=X+1
Next j
Next I
Print X
a) 5
b) 10
c) 15
d) 20 答案：C
19) 下面程序执行的结果是____。
Private Sub Form_Click()
A$="123":B$="456"
C=Val(A$)+Val(B$)
Print C\100
End Sub
a) 123
b) 3
c) 5
d) 579 答案：C
20) 下列循环语句将执行______次。
A=100
Do
Print a
a=a+1
Loop until a<=10
a) 1
b) 10
c) 100
d) 死循环 答案：D
21) 下面程序段的循环结构执行后， 的输出值是_____。
程序段为：
For I=1 to 10 step 2
y=y+I
Next I
print I;
a) 25
b) 10
c) 11
d) 因为Y的初值不知道，所以不确定 答案：C
22) 写列程序段的执行结果____。
A="abbacddcba"
for I=6 to 2 step -2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x & y & z
next I
print Ucase(z)
a) ABA
b) AABAAB
c) BBABBA
d) ABBABA 答案：C
23) 以下语句输出结果是（在立即窗口中）_____。
A="Beijing"
b="ShangHai"
Print a;b
a) Beijing ShangHai
b) Abeijing ShangHai
c) BeijingShangHai
d) Abeijing 答案：C
24) 有如下程序：
For I=1 To 3
For j=5 To 1 Step-1
Print I+j
Next j,I
其循环执行的次数为______。
a) 12
b) 13
c) 14
d) 15 答案：D
25) 有如下程序段，该程序执行后，变量a的值为______。
For I=1 To 2
For J=I To 2
For K=1 To J
a=a+2
Next K
Next J
Next I
a) 2
b) 8
c) 10
d) 20 答案：C
26) 执行下列程序后，变量a的值为____。
Dim I as integer
dim a as integer
a=0
for I=0 to 100 step 2
a=a+1
next I
a) 1
b) 10
c) 51
d) 100 答案：C
27) 执行下列程序后，X的值为______。
X=3
y=6
Do While y<=6
x=x*y
y=y+1
Loop
a) 3
b) 6
c) 18
d) 20 答案：C
28) 执行下列程序段后，整型变量c的值为___。
A=24
b=328
select case b\10
case 0
c=a*10+b
case 1 to 9
c=a*100+b
case 10 to 99
c=a*1000+b
end select
a) 537
b) 2427
c) 24328
d) 240328 答案：C
29) 执行完下面的程序段后，循环将执行____次。
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 答案：C
30) 有如下语句，执行后该段语句的循环次数是_____。
Dim s,I,j as integer
For I =1 to 3
For j=3 To 1 Step-1
S=I*j
Next j
Next I
a) 9
b) 10
c) 3
d) 4 答案：A
31) 有如下程序，该程序将______。
For I=1 to 10 step 0
K=k+2
Next I
a) 形成无限循环。
b) 循环体执行一此后结束循环。
c) 语法错误。
d) 循环体不执行即结束循环。 答案：A
32) 有如下程序段，该程序段执行完毕后，共循环了________。
For I=1 To 5
For j=1 To I
For k=j To 4
Print "a"
Next k
Next j
Next I
a) 4
b) 5
c) 38
d) 40 答案：D
33) 有如下程序，该程序的运行结果为______。
Dim k As Integer
n=5:m=1:k=1
Do While k<=n
m=m*2
k=k+1
Loop
Print m
a) 1
b) 5
c) 32
d) 40 答案：C
34) 以下程序输出1到1000之间所有的偶数之和，请补充完该程序。
Private Sub Command_Click()
Dim x As Double
For I=0 To 1000
If ____ Then
x=x+I
End If
Next I
Print x
End Sub
a) i Mod 2 = 0
b) x Mod 2 = 0
c) I Mod 2 <> 0
d) x Mod 2 <> 0 答案：A
35) 以下是计算10的阶乘的程序，请补充该程序。
Dim t as single
Dim k as Integer
k=0:t=1
While_______
k=k+1
t=t*k
Wend
Print t
a) k<10
b) k>10
c) k=10
d) k>=10 答案：A
36) _____是由Visual Basic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。
a) 文件
b) 属性
c) 方法
d) 窗体 答案：C
37) 刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是_____。
a) 单选按钮
b) 图片框
c) 通用对话框
d) 文本框 答案：C
38) 下列各项不是Visual Basic的基本数据类型的是_____。
a) Char
b) String
c) Integer
d) Double 答案：A
39) 下列运算结果中，值最大的是 ______。
a) 3\4
b) 3/4
c) 4 mod 3
d) 3 mod 4 答案：D
40) 以下不属控件的一项是_____。
a) 文本框
b) 标签框
c) 列表框
d) 消息框 答案：D
41) 用InputBox函数可帮助生成_______。
a) 消息框
b) “保存”对话框
c) 简单输入框
d) “颜色”对话框 答案：C
42) ______对象不能响应Click事件。
a) 列表框
b) 图片框
c) 窗体
d) 计时器 答案：D
43) 17 mod 3的运算结果是_____。
a) 0.5
b) 1
c) 1.5
d) 2 答案：D
44) 变量X=32769，则变量声明时不能将其声明为_____。
a) Intrger
b) Variant
c) Long
d) Single 答案：A
45) 表达式2*3^2+2*8/4+3^2的值为_____。
a) 64
b) 31
c) 49
d) 22 答案：B
46) 复选对象是否被选中，是由其_____属性决定的。
a) Checked
b) Value
c) Enabled
d) Selected 答案：B
47) 没有Caption属性的控件是_____。
a) Label
b) OptionButton
c) Frame
d) LisBox 答案：D
48) 下列符号是Visual Basic中合法变量名的是_____。
a) IF
b) 7AB
c) A[B]7
d) AB_7 答案：D
49) 使窗体自动向下移动的语句是Move_____。
a) Left, Top+100
b) Top+100
c) Top+100
d) Top=Top+100 答案：A
50) RGB函数通过红、绿、蓝三基色混合产生某种颜色，其语法为RGB（红、绿、蓝），括号中红、绿、蓝三基色的成分使用0-255之间的整数。若使用3个滚动条分别输入3种基色，为保证输入数值有效，则应设置_____属性。
a) Max和Min
b) SmallChange和LargeChange
c) Scroll和Change
d) Value 答案：A

http://wenku.baidu.com/view/7121b3d1240c844769eaee42.html
百度文库

---

荣昌县19548053438： VB程序设计 , 期末考试题库 .求最后答案,回答几个是几个吧,但是不要乱给答案,谢谢.1,[100,666]范围内同时满足以下两个条件的十进制数. ⑴其个位数... - ？
泷钞九味：[答案] 2. for i=10 to 500 step 2 sum=sum+i next i print sum 3. for i=200 to 1000 if i mod 3+i mod 5=0 then sum=sum+i next print sum 5. for i=1 to 3000 if i mod 17=0 or i mod 23=0 then j=j+1 next print j 6. for i=100 to 650 if i mod 3+i mod 7=0 then j=j+1 next print...

荣昌县19548053438： 大学VB期末考试题 将输入的字符按以下规律译成密码:A - Z,B - Y,C - X…？
泷钞九味： Private Sub Command1_Click() s = InputBox(＂请输入原文(不支持中文加密!):＂) For i = 1 To Len(s) zifu = Mid(s, i, 1) If zifu &gt;= ＂a＂ And zifu &lt;= ＂z＂ Then zifu = Chr(97 + 122 - Asc(zifu)) ElseIf zifu &gt;= ＂A＂ And zifu &lt;= ＂Z＂ Then zifu = Chr(65 + 90 - Asc(zifu)) End If Print zifu; Next i End Sub

荣昌县19548053438： 请大侠教我做vb试题一、单项选择题(5小题,每小题2分,共10分)1.运用计算机程序解决实际问题时,合理的步骤是A、设计算法---分析问题---编写程序---... - ？
泷钞九味：[答案] 1、B 2、B 3、A 4、C 5、B 6、D 7、A 8、D 9、D 10、C

荣昌县19548053438： 跪求大哥大姐们帮我做下VB 考试题 - ？
泷钞九味： 1、窗体和控件2、在属性窗口中修改属性和用代码修改属性3、Form_Click4、引号＂ 星号#

荣昌县19548053438： VB趣味程序设计期末考试题 - ？
泷钞九味： 1.pi的泰勒展开式 Dim n As Single, d As Single n = 0 d = Val(text1.Text) Do Until 1 / (2 * n + 1)pi = pi + (-1) ^ n / (2 * n + 1) n = n + 1 Loop MsgBox pi * 42.?

荣昌县19548053438： 有关VB的试题,急 第4章练习题一、写出下列Visual Basic表达式正确的形式.(1) - 3 / 8 + xy – 8.Cos28○(2) (8 + 6) ^ (4 ÷ - 2) + Sin(2 * )(3)[(x + y) + z] * 80 - 5(C ... - ？
泷钞九味：[答案] 1-1,(-3)/8+x*y-8*cos(3.14159*28/180) (8+6)^(4/(-2))+sin(2*3.14159) ((x+Y)+z)*80-5*(c+d)

荣昌县19548053438： VB期末试题:随机函数RND生成的数的范围是多少? - ？
泷钞九味： rnd 范围0-1之间 sgn 取值为-1,0,1之一 abs 范围0-+∞ clng 范围-2,147,483,648-2,147,483,647

荣昌县19548053438： vb考试题 求解啊 !1) 输出1到100之间的所有整数.2) 计算1+(1+2)+(1+2+3)+…+(1+2+3+4+5+6+7+8+9)+(1+2+3+4+5+6+7+8+9+10)3) 输入含有若干个... - ？
泷钞九味：[答案] 第一题 for i=1 to 100 print i; if i mod 10=0 then print '10个换行 next print 第二题 sum=0 for i=1 to 10 for j=1 to i sum =sum+j next next print sum 第三题麻烦,要上机做了,先给你前两个 Private Sub Command1_Click() Dim maxw As String w = Split(...

荣昌县19548053438： VB期末考试题,求高手发源代码,问题不难 - ？
泷钞九味： Public Class Form1 '记事本 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.Height = 600...

荣昌县19548053438： VB语言程序设计试题 随机生成一个4*4数组,找出最大元素的值及下标 - ？
泷钞九味： Private Sub Command1_Click()Dim a(1 To 4, 1 To 4) As LongDim i As Long, j As LongDim x As Long, y As LongDim n As Long Randomize '...