大一vb期末考试试题
1)以下程序运行后，输出结果是_ _ _ _ _ _。
B=1
do while(b & lt；40)
b=b*(b+1)
环
打印b
a) 42
b) 39
c) 6
D) 1答案:a。
2)执行以下程序段时，依次输入1，3，5，执行结果为_ _ _ _ _。
将a(4)作为整数变暗
Dim b(4)为整数
对于K =0到2
A(K+1) =Val(InputBox("请输入数据:"))
b(3-K) =a(K+1)
下一个K
打印b(K)
a) 1
b) 3
c) 5
D) 0答案:a
3)执行下列程序后，变量S的值是_ _ _ _ _ _。
Dim s为long，x为整数
s=0:x=1
do While(x & lt；10)
s=s+x
x=x+2
环
打印s
a) 10
b) 25
c) 50
D) 100答案:B
4)编写以下事件过程:
私有子窗体_MouseDown(按钮为整数，Shift为整数，X为单值，Y为单值)
如果Shift=6，Button=2，则
打印“你好”
如果…就会结束
末端接头
程序运行后，为了在表单上输出“Hello ”,需要在表单上执行以下_ _ _ _ _操作。
a)同时按下Shift键和鼠标左键。
b)同时按下Shift键和鼠标右键。
c)同时按下Ctrl、Alt和鼠标左键。
d)同时按下Ctrl、Alt和鼠标右键答案:d
5)当变量x = 2，y = 5时，下列程序的输出是_ _ _ _。
直到y & gt五
x=x*y
y=y+1
环
打印x
a) 2
b) 5
c) 10
D) 20答案:C
6)当执行以下程序时，名为lblResult的标签框中将显示_ _ _。
Private Sub cmdlt_click()
迪姆河
R=0
对于I=1到5步1
R=R+I
接下来我
lblResult。标题=字符串(R)
末端接头
a)字符串15
b)整数15
c)字符串5
d)整数5答案:a
7)有一个不完整的程序段如下。如果程序需要执行三个循环，你应该在程序的括号里输入_ _ _ _ _。
X=1
做
x=x+3
打印x
循环直到(___)
a)x & gt；=8
b)x & lt；=8
c)x & gt；=7
d)x & lt；=7答案:A
8)如果整型变量A的值是2，整型变量B的值是3，整型变量C的值是_ _ _ _ _ _。
如果a & gt那就5
如果b & lt那么4
c=a-b
其他
c=b-a
如果…就会结束
elseif b & gt3那么c=a*b
其他
c=a mod b
如果…就会结束
a) 2
b) -1
c) 1
D) 6答案:a
9)设置以下语句:
Str1=inputbox ("Input "，" Practice ")
从键盘输入字符串“Example”后，str1的值为_ _。
a)“输入”
b)" "
c)“实践”
d)“例题”答案:d。
10)我们在一个表单上创建两个文本框，分别命名为Text1和Text2。事件过程如下。
私有子文本1_change()
text 2 . text = u case(text 1 . text)
末端接头
在Text1文本框中输入“visual basic”，Text2将_ _ _ _ _。
a)文本2中没有可显示的内容。
B) Text2显示“VISUAL BASIC”。
c)文本2显示“visual basic”
D) Text1显示“visual basic”答案:b
11)运行以下程序后S的值是_ _ _ _ _。
S=0
对于x=99到1步骤2
s=s+x
下一个x
打印s
a) 100
500人
2500英镑
D) 5000答案:c。
12)下列程序的执行结果是_ _ _ _。
K=0
对于I=1到3
a=I^I^K
打印a；
接下来我
a) 1 1 1
b) 1 2 3
c) 0 0 0
D) 1 4 9答案:a。
13)下列程序的执行结果是_ _ _ _ _。
将a(5)标注为字符串
Dim b为整数
将I标注为整数
对于I =0到5
a(I)=I+1
打印a(I)
接下来我
a) 123456
b) 6
c) 654321
D) 0答案:a
14)下列程序的执行结果是_ _ _ _ _。
Dim intsum为整数
将I标注为整数
intsum=0
对于I=20.2至5步-4.7
intsum=intsum +I
接下来我
打印整数
a) 150
b) 200
c) 50
D) 0答案:c
15)下列程序的执行结果是_ _ _ _ _。
Dim S为整数，n为整数
S=0:n=1
Do While n & lt=100
S=S+n
n=n+1
环
打印S
a) 5050
2500英镑
3000英镑
D) 4000答案:a。
16)下列程序的执行结果是_ _ _ _ _。
A=100:b=50
如果a & gtb那么
a=a-b
其他
b=b+a
如果…就会结束
打印一份
a) 50
b) 100
c) 200
D) 10答案:a。
17)下列程序的执行结果是_ _ _ _ _ _ _ _ _。
Dim intsum为整数
将I标注为整数
intsum=0
对于I=0到50步长10
intsum=intsum+I
接下来我
打印整数
a) 150
b) 200
c) 50
D) 0答案:a
18)执行下面的程序后，X的结果是_ _ _ _ _。
X=0
对于I =1到5
对于j = 1到5
X=X+1
下一个j
接下来我
打印X
答)5
b) 10
c) 15
D) 20答案:C
19)下列程序执行的结果是_ _ _ _。
私有子窗体_Click()
A$="123":B$="456 "
C=Val(A$)+Val(B$)
打印C\100
末端接头
a) 123
b) 3
c) 5
D) 579答案:c。
20)以下循环语句将被执行_ _ _ _ _次。
A=100
做
打印一份
a=a+1
循环直到a & lt=10
a) 1
b) 10
c) 100
d)无限循环答案:d。
21)执行下面程序段的循环结构后，的输出值是_ _ _ _ _。
节目片段是:
对于I=1至10步骤2
y=y+I
接下来我
打印I；
a) 25
b) 10
c) 11
d)因为Y的初始值未知，所以我不确定答案:c。
22)写出程序段的执行结果_ _ _ _。
A="abbacddcba "
对于I=6到2的第二步
x=mid(a，I，I)
y =左(a，I)
z =右(a，I)
z = x & ampy & ampz
接下来我
打印用例(z)
美国律师协会
b) AABAAB
BBABBA
d)阿巴巴答:c。
23)以下语句的输出结果是(在即时窗口中)_ _ _ _ _ _ _。
A= "北京"
b= "上海"
打印a；b
a)北京上海
b)北京上海
c)北京上海
d)阿北井答案:c。
24)有以下程序:
对于I=1到3
对于j=5到1步进-1
打印I+j
下一个j，我
其循环执行的次数是_ _ _ _ _。
a) 12
b) 13
c) 14
D) 15回答:D
25)有以下程序段。程序执行后，变量A的值是_ _ _ _ _ _。
对于I=1到2
对于J = 1到2
对于K=1到J
a=a+2
下一个K
下一个J
接下来我
a) 2
b) 8
c) 10
D) 20答案:C
26)执行以下程序后，变量A的值是_ _ _ _。
将I标注为整数
将a作为整数变暗
a=0
对于I=0到100步骤2
a=a+1
接下来我
a) 1
b) 10
c) 51
D) 100答案:c。
27)执行下列程序后，x的值是_ _ _ _ _ _。
X=3
y=6
当y & lt=6
x=x*y
y=y+1
环
a) 3
b) 6
c) 18
D) 20答案:C
28)执行以下程序段后，整型变量c的值为_ _。
A=24
b=328
选择案例b\10
案例0
c=a*10+b
案例1至9
c=a*100+b
案例10至99
c=a*1000+b
结束选择
537人
b) 2427
24328
D) 240328答案:C
29)执行完下面的程序段后，循环将执行_ _ _ _次。
对于I=1.7到5.9步长0.9
a=a+1
打印一份
接下来我
a) 3
b) 4
c) 5
D) 6答案:c。
30)有下面这条语句，这条语句执行后的循环次数是_ _ _ _ _。
Dim s，I，j为整数
对于I =1到3
对于j=3到1步进-1
S=I*j
下一个j
接下来我
a) 9
b) 10
c) 3
D) 4答案:a。
31)有如下程序，会_ _ _ _ _。
对于I=1至10，步长为0
K=k+2
接下来我
a)形成无限循环。
b)循环体执行随后结束循环。
c)语法错误。
d)如果循环体没有执行，则循环结束。答:答
32)有以下程序段。程序段执行后，* * *循环_ _ _ _ _ _ _ _ _。
对于I=1到5
对于j=1到I
对于k=j到4
打印“a”
下一个k
下一个j
接下来我
a) 4
b) 5
c) 38
D) 40回答:D
33)有下面这个程序，这个程序的运行结果是_ _ _ _ _ _。
将k标注为整数
n=5:m=1:k=1
Do While k & lt=n
m=m*2
k=k+1
环
打印m
a) 1
b) 5
c) 32
D) 40答案:c。
34)下面的程序输出1和1000之间所有偶数的和。请完成程序。
私有子命令_Click()
将x标注为双精度
对于I=0到1000
如果____，那么
x=x+I
如果…就会结束
接下来我
打印x
末端接头
a) i Mod 2 = 0
b) x Mod 2 = 0
c)I Mod 2 & lt；& gt0
d) x模2 & lt& gt0答案:a
35)下面是计算10的阶乘的程序。请补充这个节目。
将t标注为单个
将k标注为整数
k=0:t=1
而_ _ _ _ _ _ _ _ _
k=k+1
t=t*k
行
打印t
a)k & lt；10
b)k & gt；10
c) k=10
d)k & gt；=10答案:a。
36) _____是Visual Basic提供的一个特殊的子程序，是对象本身所拥有的，反映了对象内部的函数或进程。
a)文件
b)属性
c)方法
d)表格答案:c
37)刚建立一个新的标准EXE项目，工具箱中没有出现的控件是_ _ _ _ _。
a)单选按钮
b)相框
c)常规对话框
d)文本框答案:c
38)下列各项不是Visual Basic的基本数据类型_ _ _ _ _。
a) Char
b)字符串
c)整数
d)双重回答:a
39)下列运算结果中，值最大的是_ _ _ _ _。
a) 3\4
b) 3/4
c) 4个模块3
D) 3 mod 4答案:d。
40)下列不属于控制项的是_ _ _ _。
a)文本框
b)标签盒
c)列表框
消息框回答:d
41) InputBox函数可以帮助生成_ _ _ _ _ _。
a)消息框
b)保存对话框
c)简单输入框
d)颜色对话框答案:c
42)对象不能响应点击事件。
a)列表框
b)相框
c)形式
d)计时器回答:d
43)运算结果43) 17 mod 3是_ _ _ _ _。
a) 0.5
b) 1
c) 1.5
D) 2答案:d。
44)如果变量X=32769，该变量不能声明为_ _ _ _ _。
a)集成器
b)变体
c)长
d)单项答案:a
45)表达式2 * 3 ^ 2+2 * 8/4+3 ^ 2的值是_ _ _ _。
a) 64
b) 31
c) 49
D) 22答案:b。
46)检查对象是否被选中是由其_ _ _ _属性决定的。
a)已检查
b)价值
c)启用
d)选择答案:b
47)没有标题属性的控件是_ _ _ _ _。
a)标签
b)选项按钮
c)框架
D) LisBox答案:d。
48)下列符号在Visual Basic中是合法的变量名，那些是_ _ _ _ _。
a)如果
b) 7AB
c) A[B]7
D) AB_7答案:d。
49)使表格自动下移的语句是move _ _ _ _。
a)左侧，顶部+100
b) Top+100
c) Top+100
D) Top=Top+100答案:a。
50)RGB函数通过混合红、绿、蓝三原色生成某种颜色。它的语法是RGB(红绿蓝)，括号中三原色的分量是0到255之间的整数。如果使用三个滚动条分别输入三原色，则应该设置_ _ _ _属性以确保输入值有效。
a)最大和最小
小额零钱和大额零钱
c)滚动和更改
d)价值答案:a