VB题库(考试必备)
1、判断年份是否为闰年
2、三角形问题
3、水仙花数
4、国际象棋问题
5、九九乘法表
6、有关素数
7、分段函数
8、完数问题
9、数组问题
10、随机数问题
11、斐波那契数
12、计算求和
13、判断奇偶性
14、进制转换
15、十位数字和个位数字
16、公约数公倍数
17、编写铁路运费的程序
18 、在窗体上放置文本框Text1，按钮Command1.在文本框中输入一个数，单击Command1，如果其大于等于8，且小于等于10，则用MsgBox输出“Ture”，否则输出“False”
19 、编写一个函数，其功能为求两个数的最小数
20 、输入两个数，交换他们的值，并输出。
21 、输入整数，使得...并输出... 1 、判断年份是否为闰年
用InputBox输入一个年份，判断该年份是否为闰年，判定条件是：能被400整除，或者能被4整除但不能被100整除的年份是闰年Private Sub Form_Click()
Dim x%
x = InputBox("请输入一个年份")
If x Mod 400 = 0 Or x Mod 4 = 0 And x Mod 100 <> 0 Then
Print x; "是闰年"
Else
Print x; "不是闰年"
End If
End Sub
2 、三角形问题
（1）输入三个数a.b.c，判断其能否构成三角形，若能，则计算其面积，并用Msgbox输出；否则用Msgbox输出
“不能构成三角形”。
Private Sub Command1_Click()
Dim i As Integer, a(2) As Integer, p As Single, s As Single
For i = 0 To 2
a(i) = Val(InputBox("输入第" & i & "条边的边长:"))
Next i
If a(0) + a(1) > a(2) And a(0) + a(2) > a(1) And a(1) + a(2) > a(0) Then
p = (a(0) + a(1) + a(2)) / 2
s = Sqr(p * (p - a(0) * p - a(1)) * (p - a(2))) MsgBox (s)
Else
MsgBox ("不能构成三角形!")
End If
End Sub
（2）勾股定理中3个数的关系是：a^2+b^2=c^2,编程输出20以内满足上述关系的整数组合，例如3、4、5就是一个整数组合
Private Sub Form_Click()
Dim a%, b%, c%
For a = 1 To 20
For b = a To 20
For c = b To 20
If c ^ 2 = a ^ 2 + b ^ 2 Then
Print a, b, c
End If
Next c
Next b
Next a
End Sub
3 、水仙花数
如果一个三位整数等于其各位数字的立方和，则称该数位水仙花数，请输入一个三位数并判断其是否为水仙花数
Private Sub Form_Click()
Dim x%
x = InputBox("请输入一个三位数字")
a = x \ 100
b = (x Mod 100) \ 10
c = x - a * 100 - b * 10
If a ^ 3 + b ^ 3 + c ^ 3 = x Then
Print x; "是水仙花数"
Else
Print x; "不是水仙花数"
End If
End Sub
4 、国际象棋问题
Private Sub Form_Click()
Dim x#
x = 0
For i = 1 To 64
x = x + 2 ^ (i - 1)
Next i
Print "该棋盘上一共放了"; x; "粒麦子。"
End Sub
5 、九九乘法表编写一个程序打印九九乘法表
Private sub pp(byval i%,byval j%)
Print tab((j-1)*9+1);i & “x” & j & “=” & i*j;
End sub
Private Sub Form_Click()
Dim i%
For i = 1 To 9
For j=1 to i
Call pp(I,j)
Next j
Next i
End Sub
6 、有关素数
（1）输入一个整数n，判断其是否为素数
Private Sub Form_click()
Dim n%
n = InputBox("请输入一个整数（>=3）")
k = Int(Sqr(n))
i = 2
flag = 1
While i <= k And flag = 1
If n Mod i = 0 Then
flag = 0
Else
i = i + 1
End If
Wend
If flag = 1 Then
Print n; "是一个素数"
Else
Print n; "不是素数"
End If
End Sub
（2）编写一个函数，其功能为判断某个整数是不是素数。
调用该函数，判断100001是否是素数。或100007，100003
Public Function f(n#)
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i > n - 1 And n > 1 Then
f = True
Print n; "是素数"
Else
Print n; "不是素数"
End If
End Function
Private Sub Command1_Click()
Dim p%
p = f(100001)
p = f(100007)
p = f(100003)
End Sub
（3）求一段范围内素数。并求和。
Private Function prim(ByVal m%) As Boolean Dim k%, i%
prim = True
k =int(Sqr(m))
For i = 2 To k
If m Mod i = 0 Then prim = False: Exit For
Next
End Function
Private Sub Form_click()
Dim m%, n%, i%, k%, sum#, count%
m = Val(InputBox("下限"))
n = Val(InputBox("上限"))
If m > n Then k = m: m = n: n = k
Print "范围[" & m & "," & n & "],素数有:" For i = m To n
If prim(i) Then
Print i; Spc(5 - Len(Str(i)));
count = count + 1
sum = sum + i
If count Mod 8 = 0 Then Print
End If
Next
Print Print "个数"; count
Print "和是"; sum
End Sub
7 、分段函数
编程实现下列分段函数
（1）当x为偶数时，y的值为x的二分之一（2）当x为奇数时，y的值为x的二倍Private Sub Form_Click()
Dim x%, y%
x = Val(InputBox("请输入一个整数"))
If x Mod 2 = 0 Then
y = x / 2
Else
y = x * 2
End If
Print "y="; y
End Sub
8 、完数问题
如果一个数的因子之和等于这个数本身，则称这样的数位完全数，编程：从键盘上输入正整数N和M，求出M和N之间所有完全数
Private Sub Form_Click()
m = Val(InputBox("请输入m的值"))
n = Val(InputBox("请输入n的值"))
Print "m与n之间的所有完全数为："
For i = m To n
s = 0
For j = 1 To i \ 2
If i Mod j = 0 Then
s = s + j
End If
Next j
If i = s Then
Print i
End If
Next i
End Sub
9 、数组问题
（1）定义一个具有20元素的一维数组，并对其随机赋值，然后求出其中元素值为奇数的元素的和
Option Base 1
Private Sub Form_Click()
Dim a%(20), sum&
Randomize
For i = 1 To 20
a(i) = Int(11 * Rnd()) : Print a(i);
if a(i) mod 2<>0 then sum=sum+a(i)
Next i
Print “sum=”;sum
End Sub
（2）定义一个具有15个元素的一位数组，并对其赋值，然后检查元素值，如果某元素值既是3的倍数，也是7的倍数，则将该元素的值改为370
Option Base 1
Private Sub Form_Click()
Dim a%(15), sum&
Randomize
For i = 1 To 15
a(i) = Int(31 * Rnd())
Print a(i);
Next i
For i = 1 To 15
If a(i) Mod 3 = 0 And a(i) Mod 7 = 0 Then Print a(i),: a(i) = 370: Print a(i)
Next i
End Sub
（3）建立一个10*10的矩阵，将其对角线上的元素赋值为1，其他元素赋值为0
Option Base 1
Private Sub Command1_Click()
Dim arr(10, 10) As Integer, i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
If i = j Or i + j = 11 Then arr(i, j) = 1 Else arr(i, j) = 0
Print arr(i, j);
Next j
Next i
End Sub
（4）建立一个10*10矩阵，求出每一行的和以及每一列的和
Option Base 1
Private Sub Command1_Click()
Dim arr(10, 10) As Integer, i As Integer, j As Integer
For i = 1 To 10
For j = 1 To 10
arr(i, j) = Int(10 * Rnd)
Print arr(i, j);
Next j
Next i
Dim sum(10) As Integer
For i = 1 To 10
sum(i) = 0
For j = 1 To 10
sum(i) = sum(i) + arr(i, j)
Next j
Print sum(i);
Next i
Dim sum1(10) As Integer
For j = 1 To 10
sum1(j) = 0
For i = 1 To 10
sum1(j) = sum1(j) + arr(i, j)
Next i
Print sum1(j);
Next j
End Sub
（5）编写程序实现两个矩阵相加
Option Base 1
Private Sub Command1_Click()
Dim a%(3, 4), b%(3, 4), c%(3, 4)
For i = 1 To 3
For j = 1 To 4
a(i, j) = Int(11 * Rnd())
Print a(i, j);
Next j
Next i
For i = 1 To 3
For j = 1 To 4
b(i, j) = Int(11 * Rnd())
Print b(i, j);
Next j
Next i
For i = 1 To 3
For j = 1 To 4
c(i, j) = a(i, j) + b(i, j)
Print c(i, j);
Next j
Next i
End Sub
（6）定义一个具有100个素的整型数组，范围【0,100】，每行输出十个
Private Sub Form_click()
Dim a%(99), i%
Randomize
For i = 0 To 99
a(i) = Int(101 * Rnd)
Next
For i = 0 To 99
Print a(i); Spc(4 - Len(Str(a(i))));
If i Mod 10 = 9 Then Print
Next
End Sub
（7）编写程序，建立一个6×6的整型二维数组
（数据由程序调用Rnd函数产生[0，15 ）的随机整数数），输出数组中的最小元素。
Private Sub command1_click()
Dim a%(6, 6), i%, j%
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 15)
Print a(i, j);
Next j
Next i
Min = a(1, 1)
For i = 1 To 6
For j = 1 To 6
If Min > a(i, j) Then Min = a(i, j)
Next j
Next i
Print "数组中最小元素为："; Min
End Sub
（8）编写程序，产生一个整型二维数组A（N ，N），（N 取5），数组元素的取值范围为[0，15 )，计算数组中每一列数据的和。
Private Sub Command1_Click()
Dim a%(5, 5)
Dim i%, j%
For i = 1 To 5
For j = 1 To 5
a(i, j) = Int(Rnd * 15)
Print a(i, j);
Next j
Next i
For i = 1 To 5
s1 = s1 + a(i, 1)
Next i
Print "第一列数据之和是"; s1
For i = 1 To 5
s2 = s2 + a(i, 2)
Next i
Print "第二列数据之和是"; s2
For i = 1 To 5
s3 = s3 + a(i, 3)
Next i
Print "第三列数据之和是"; s3
For i = 1 To 5
s4 = s4 + a(i, 4)
Next i
Print "第四列数据之和是"; s4
For i = 1 To 5
s5 = s5 + a(i, 5)
Next i
Print "第五列数据之和是"; s5
End Sub
（9）编写一个函数，其参数为一个一维整型数组，其功能为求数组中所有元素的最小值。
Public Function findmin%(b%())
Dim i%
Min = b(LBound(b))
For i = LBound(b) To UBound(b)
If Min > b(i) Then Min = b(i)
Next
findmin = Min
End Function
Private Sub Command1_Click()
Dim a%(1 To 10), i%
For i = 1 To 10
a(i) = Int(Rnd * 100)
Print a(i);
Next
Print "数组最小值是"; findmin(a())
End Sub
（10）定义一个下标上界为10的整形数组，并随机函数为其赋值（值处于0到100之间），计算数组中所有偶数的和
Private sub command 1_click( )
Randomize
Dim a %(10)
Dim i%,s%
For i =0 to 10 A(i)=101*rnd()
Next
For i =0 to 10
If a(i) mod 2 =0 then
S=s +a(i)
End if
Next
10 、随机数问题
（1）随机输入一个位于0到100的整数
Private sub command 1_click( )
Randomize
Dim s%
S =int(101*rnd)
Print s
End sub
（2）随机输出一个小写字母
Private Sub Command1_Click()
dim a as string
randomize
a=chr(int(97+26*rnd))
magbox(a)
end sub
（3）随机输出一个小（大）写字母。
Private Sub Command1_Click()
Dim s
s = Chr$(Int(Rnd * 26 + 97))
p = Chr$(Int(Rnd * 26 + 65))
Print "输出的随机小写字母是"; s
Print "输出的随机大写字母是"; p
End Sub
（4）编写函数过程实现返回一个1~100之间的随机整数
Option Explicit
Private Function p() As Integer
p = Int(100 * Rnd + 1)
End Function
Private Sub Form_Click()
Dim i%
For i = 1 To 10
Print p(),
Next i
End Sub
11 、斐波那契数
（1）斐波那契数的第X项值
Private Sub Form_click()
Dim a#, b#, c#
a = 1
b = 1
x = InputBox("请输入x")
For i = 3 To x
c = a + b
a = b
b = c
Next
Print c
End Sub
（2）斐波那契数列前N项和
Private Sub Form_click()
Dim a#, b#, c#
a = 1
b = 1
Sum = 2
x = InputBox("请输入x")
For i = 3 To x
c = a + b
a = b
b = c
Sum = Sum + c
Next
Print Sum
End Sub
（3）用Function过程求斐波那契数列的第n项，并调用该函数，显示数列的第5项。斐波那契数列：1，1，2，3，5，8……
Private Sub Command1_Click()
Dim p%
p = f(5)
End Sub
Public Function f(n%)
Dim a#(), i%
ReDim a#(1 To n)
a(1) = 1: a(2) = 1
For i = 3 To n
a(i) = a(i - 1) + a(i - 2)
Next i
f = a(n)
Print "第"; n; "项是"; a(n)
End Function
12、计算求和
（1）有一个分数序列，2/1,3/2,5/3,8/5,13/8,21/13,……,求该数列的前二十项
Private Sub Form_Click()
Dim a#, b#, sum#, i#
a = 1:
b = 2: sum = 0: i = 1
For i = 1 To 20
sum = sum + b / a
b = a + b
a =
b - a
Next i
Print "该数列前20项之和为："; sum
End Sub
（2）计算s=1+（1+2）+（1+2+3）+（1+2+3+4）+……+(1+2+3+4+5+…..+n)
Private Sub Form_Click()
Dim s#
n = InputBox("请输入n的值")
s = 0
For i = 1 To n
For j = 1 To i
s = s + j
Next j
Next i
Print "s的值为："; s
End Sub
（3）设s=1^1*2^2*3^3*4^4*…….*n^n,求s不大于400000是最大的n值
Private Sub Form_Click()
Dim s&
s = 1: i = 0
Do
i = i + 1
s = s * (i ^ i)
Loop Until s > 400000
Print "s不大于400000时最大的n值为："; i - 1 End Sub
（4）计算sum=1*3*5....*9
Private Sub Command1_Click()
Dim sum As Long, i As Integer
sum = 1
For i = 1 To 9 Step 2
sum = sum * i
Next
MsgBox (sum)
End Sub
（5）计算sum=1/2!+1/4!+1/6!+...+1/10!
Private sub command1_click()
Dim i%,f#,s#
F=1:s=0
For i=1 to 10
F=f*i
If i mod 2=0 then
S=s+1/f
End if
Next i
Print "sum=1/2!+1/4!+1/6!+...+1/10!";"=";s
End sub （6）计算sum=2!+4!+6!+...+10! 《计算、sum=1!+3!+5!+...+9!》
Private sub command1_click()
Dim i%,f#,s#
F=1:s=0
For i=1 to 10
F=f*i
If i mod 2=0 then
S=s+f
End if
Next i
Print "sum=2!+4!+6!+...+10!";"="s
End sub
（7）编写程序，计算并输出下面级数前n 项(n=20) 中奇数项的和。
1*2*3-2*3*4+3*4*5-4*5*6+ …+(-1)^(n-1)*n*(n+1)*(n+2)+ …（其中，^ 表示幂运算）
Private sub command1_click()
Dim i%,n%,sum%
n=20
for i=1 to n step 2
sum= sum+ i*(i+1)*(i+2)
Next
Print sum
End sub
（8）编写程序，编写程序，计算并输出下面级数前n （设n=50 ）项中所有奇数项的和。(偶数项的和)
1*2+2*3+3*4+4*5+…+n*(n+1)+…
Private Sub Command1_Click()
Dim i%
n = 50
For i = 1 To n step2
s = s + i * (i + 1)
Next i
Print "奇数项的和是"; s
End Sub
（9）有一个数列，第一项和第二项都是1，以后的每一项都是其相邻前两项之和的0.65 倍。试编写通用过程（函数或子程序），求数列前n 项的平均值。要求调用该过程，计算并输出n=49 时前n 项的平均值（保留2 位小数）。
Private Sub Command1_Click()
Print "前49项的平均值是"; f(49)
End Sub
Public Function f(n%)
Dim a#(), i%
ReDim a#(1 To n)
a(1) = 1: a(2) = 1
For i = 3 To n
a(i) = (a(i - 1) + a(i - 2)) * 0.65
Next i
For i = 1 To n
s = s + a(i)
Next
pj = s / n
f = Format(pj, "#.##")
End Function
（10）设n=20 ，编写程序，计算并输出S(n) 的值，要求结果保留 5 位小数。
S(n)=(1*2)/(3*4)+(3*4)/(5*6)+(5*6)/(7*8)+…+[( 2n-1)*2n]/[(2n+1)*(2n+2)]+…
Private Sub Command1_Click()
Dim i%
n = 20
For i = 1 To n
s = s + ((2 * i - 1) * (2 * i)) / ((2 * i + 1) * (2 * i + 2))
Next i
Print "前20项的和是"; Format(s, "#.#####") End Sub
（11）求下面级数前n项的和s=1/1!-1/2!+1/3!-1/4!+……+(-1)^(N-1)*1/n+….. 求和过程当某一项的绝对值小于0.00001时结束（注意，该项参与求和）
计算并输出所求的和s，要求结果保留6伟小数Private sub command 1_click( )
Dim m as integer, n as long , s as double,f as integer
S =0:n=-1:m=1:f=1
Do while 1/m>=0.0001
M=m*f
F =f +1
N=-n
S=s+n/m
Loop
S =format(s,”0.000000”)
Print s
End sub
（12）计算数前100项中奇数项的和
Private sub command 1_click( )
Dim I as integer ,sum as integer
Sum =0
I=1
Do while i<=100
Sum = sum +i
I=i+2
Loop
Text1.text=sum
End sub
（13）计算并输出下面级数偶数项的和ES，在求和过程中,
当某偶数项（注意，该项参与求和）的值小于0.001时求和终止并输出ES，结果取6位
1/(1*2)+1/(2*3)+…..1/(n*(n+1))+
Private sub command 1_click( )
Dim a#,i%,ES#
I=1
Do
A=i*(i+1)
I=i+1
If I mod 2=0 then\
ES =ES+1/a
End if
Loop until1/a<0.001
ES=format(ES,”0.000000”)
Print es
End sub
（14）设n=20，x=3.4，编写程序计算并输出S(n)的值，要求结果保留5位小数。
S（n）=lnx/x+ln2x/x^2+ln3x/x^3+...+ln(n*x)/x^n+.....
Private Sub Command1_Click()
Dim x#, i%
Dim s(20) As Double
n = 20
x = 3.4
For i = 1 To 20
s(20) = s(20) + Log(i * x) / (x ^ i)
Next
Print Format(s(20), "0.00000")
End Sub
（11）编程题.设n=20，x=0.5，编写程序，计算并输出下面级数的部分和。结果取6位小数
1- ［x^2/2!-x^4/4!+x^6/6!- …+(-1)^(n-1)*x^(2n)/(2n)!+ …］（其中，^ 表示幂运算，! 表示求阶）
Private Sub Command1_Click()
Dim f#, i%
f = 1: x = 0.5: s = 0: n = -1
For i = 1 To 40
f = f * i
If i Mod 2 = 0 Then
n = -n
s = s + (x ^ i / f)
End If
Next i
Sum = 1 - s
Print "级数的部分和是"; Format(Sum, "#.######")
End Sub
13、判断奇偶性
输入一个整数判断其奇偶性Option Explicit
Private Function prim(ByVal x%) As Boolean prim = False
If x Mod 2 = 0 Then prim = True
End Function
Private Sub Form_Click()
Dim m%
m = Val(InputBox(""))
If prim(m) Then Print m & "是偶数" Else Print m & "是奇数"
End Sub
14 、进制转换
编写一个函数，其功能是把一个二进制数串转换为十进制数串。调用该函数，计算二进制“1110011“对应的十进制数。
Private Sub Command1_Click()
Print f(1110011)
End Sub
Public Function f(ByVal a As String) As Long Dim i As Long
For i = 1 To Len(a)
f = f * 2 + Val(Mid(a, i, 1))
Next i
End Function
15 、十位数字和个位数字
（1）输入一个两位数，分别输出它的个位数字和十位数字。
输入的一个两位数是24
十位数是2
个位数是4
Private Sub Command1_Click()
Dim a!, n!, b!
a = Val(InputBox("输入以为二位数"))
Print "输入的一个二位数是" & a
n = a Mod 10
b = a \ 10
Print "十位数是" & b
Print "个位数是" & n
End Sub
（2）输入一个四位数，分别输出它的个位数字、十位数字、百位数字和千位数字。
Private Sub Command1_Click()
Dim n%, a%, b%, c%, d%
n = InputBox("输入n的值")
a = n \ 1000
b = (n - a * 1000) \ 100
c = (n - a * 1000 - b * 100) \ 10
d = n - a * 1000 - b * 100 - c * 10
Print "这个四位数的千位数字是:"; a
Print "这个四位数的百位数字是:"; b
Print "这个四位数的十位数字是:"; c
Print "这个四位数的个位数字是"; d
End Sub
16 、公约数公倍数
（1）编写一个函数，其功能为求两个数的最小公倍数。
Private Sub Command1_Click()
Dim n%, m%, r%, t%, x%, y%
m = InputBox("输入的第一个自然数")
n = InputBox("输入的第二个自然数")
If m < n Then t = m: m = n: n = t
x = m: y = n
r = m Mod n
Do While r <> 0
x = y
y = r
r = x Mod y
Loop
Print m & "和" & n & "的最小公倍数是"; m * n / y
End Sub
（2）编写一个函数，其功能为求两个数的最大公约数。
Private Sub Command1_Click() Dim n%, m%, r%, t%, x%, y%
m = InputBox("输入的第一个自然数")
n = InputBox("输入的第二个自然数")
If m < n Then t = m: m = n: n = t
x = m: y = n
r = m Mod n
Do While r <> 0
x = y
y = r
r = x Mod y
Loop
Print m & "和" & n & "的最大公约数是";y
End Sub
17 、编写铁路运费的程序
Private Sub Form_Click()
Dim x%
x = InputBox("输入行李重量")
If x <= 50 Then
y = 0.25 * x
Else
If x > 50 And x <= 100 Then
y = 50 * 0.25 + (x - 50) * 0.35
Else
y = 50 * 0.25 + 50 * 0.35 + (x - 100) * 0.45
End If
End If
Print y
End Sub
18 、在窗体上放置文本框Text1，按钮Command1.在文本框中输入一个数，单击Command1，如果其大于等于8，且小于等于10，则用MsgBox输出“Ture”，否则输出“False”
Private Sub Command1_Click()
Dim x!
x = Val(Text1.Text)
If x >= 8 And x <= 10 Then
MsgBox "True"
Else
MsgBox "False"
End If
End Sub
19 、编写一个函数，其功能为求两个数的最小数。
Private Sub Command1_Click()
Dim x!, y!
x = InputBox("输入第一个数值")
y = InputBox("输入第二个数值")
Min = f(x, y)
End Sub
Public Function f(m!, n!)
Min = m
If Min > n Then Min = n
f = Min
Print "两数中的较小数是"; Min
End Function
20 、输入两个数，交换他们的值，并输出。
Private Sub Command1_Click()
Dim m!, n!, t!
m = Val(InputBox(请输入第一个数值))
n = Val(InputBox(请输入第二个数值))
Print "交换前数值是"; m; n
t = m: m = n: n = t
Print "交换后数值是"; m; n
End Sub
21 、输入整数，使得...并输出...
（1）输入两个整数m,n,编写程序使得m>=n,并输入m.n的值
Private sub command 1_click( )
Dim m as integer ,n as integer, a as integer
M=val(inputbox(“请输入m:”,输入,”m”)) N =val(inputbox(“请输入n:”,输入,”n”))
If n>m then
A=m
M=n
N=a
End if P rint “m=”,m
Print “n=”,n
End sub
（2）输入三个数啊a，b，c，编写程序使得啊a<=b<=c，并输出a，b，c的值
Private Sub Command1_Click()
Dim a%, b%, c%, t%
a = Val(InputBox("请输入a的值!"))
b = Val(InputBox("请输入b的值!"))
c = Val(InputBox("请输入c的值!"))
If a > b Then
t = a
a = b
b = 1
End If
If a > c Then
t = a
a = c
c = t
End If
If b > c Then
t = b
b = c
c = t
End If
Print a, b, c
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考试题库
大学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/9f9001129.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期末考试试卷及答案 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 x>y 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)
大学VB期末考试试题
VB期末考试试题A卷 一、填空题 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）。
【期末复习】计算机VB期末考试试题及答案
20**-20**学年VB期末考试试题A 一、填空题 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
VB期末考试试题及答案
VB期末考试试题及答案 一、填空题 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 。
VB期末考试试卷及答案.doc
VB 期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A 属性、控件和方法 B 属性、事件和方法 C 窗体、控件和过程 D 控件、过程和模块 2.所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3.下列叙述中错误的是（ A ） A工程文件扩展名是 .vbgB 标准模块文件的扩展名是 .basC窗体模块的扩展 名是 .frmD 类模块的扩展名是 .cls 4.当要编写一个新的 Visual Basic程序时，所做的第一件事是（ A ）A xx 一个工程 B 编写代码 C 设置属性 D 添加 Active X控件 5.下面控件中，没有caption 属性的是（ B ） A框架B组合框 C 命令按钮 D 复选按钮 6.在文件框中输入字符时，若只显示某个字符，如（* ），应设置属性是（B）A MultiLine B PasswordChar C Text D selText 7.若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide
C Load D UnLoad 8.下列关于过程叙述不正确的是（ D ） A过程的传值调用是将实参的具体值传值传递给形参 B过程的传址调用是将实参在内存的地址传递给形参 C过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D无论过程传值调用还是传地址调用，参数传递都是双向的 9.某人创建 1 个工程，其中的窗体名为Form1，之后又添加了 1 个名为Form2 的窗体，并希望程序执行时先显示Form2 窗体，那么，他需要做的工作 是（ C ）A 在 Form1 的 Load 事件过程中加入语句Load Form2 B 在 Form2 的 Load 事件过程中加入语句Form2.Show C在“过程属性”对话框中把“启动对象”设置为 Form2 D在 Form2 的 TabIndex 属性设置为 1，把 Form1 的 TabIndex属性设置为 2 10.以下关于文件的叙述中，正确的是（ B ） A 以 Output 方式打开一个不存在的文件时，系统将显示出错信息 B 以Append 方式打开的文件，既可以进行读操作，也可以进行写操作 C 在随机文件在，每个记录的长度是固定的 D无论是顺序文件还是随机文件，其打开的语句和打开的方式都是完全相 同的 11.设 a=6，b=8，c=10则函数 IIf(a VB 期末考试试题A 卷 一、填空题 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" 大学 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、 ="VisualBasic窗体" B、 ="VisualBasic窗体" C、 ="VisualBasic窗体" D、 ="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集成环境的主窗口中不包括（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 大学vb课程题库全集 vb单选、操作部分 一、单项选择题 1、与传统的程序设计语言相比,Visual Basic最突出的特点是（C）。 A、结构化程序设计 B、程序开发环境 C、事件驱动编程机制 D、程序调试技术 2、赋值语句：a=123 & MID(\执行后，a变量中的值是（C）。 A、\ B、123 C、12334 D、157 3、保存一个工程至少应保存两个文件，这两个文件分别是（B）。 A、文本文件和工程文件 B、窗体文件和工程文件 C、窗体文件和标准模块文件 D、类模块文件和工程文件 4、以下能在窗体Form1的标题栏中显示\窗体\的语句是（C）。 A、https://www.wendangku.net/doc/9f9001129.html,=\窗体\B、Form1.Title=\窗体\C、Form1.Caption=\窗体\D、Form1.Text=\窗体\ 5、为了装入一个Visual Basic应用程序，应当（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、Visual Basic 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、在设计阶段放置的控件 VB期末考试试题B卷 一、填空题 1.ＶＢ中若要产生一消息框，可用__（1）__函数来实现。 2．常量是指在程序运行过程中，其值不能改变（2）的量。 3．整数类型数据分别包括整型和（3）数据。 ４、在ＶＢ集成开发环境中，运行应用程序的方法有三种：一是_(单击“运行”菜单下的启动4)__；二是_(5) 单击工具栏上的启动 按钮_；三是_(6) 按Ｆ5键。 ５、在ＶＢ中若要让某对对象获取焦点，则可通过__ Setfocus (7)_方法来实现。 6．列表框（ListBox控件）显示项目列表(8) ，用户可从中选择一个或多个项目。 7．框架（Frame控件）可以用来(9) 对其它控件进行分组，以便于用户识别，主要用于为单选按钮分组。 ８、在ＶＢ中，用来描述对象外部特征的量称之为对象的_(10)_ 属性_。９、为使某窗口中的命令按钮“取消(C)”具有如下特性：按“Alt＋C”键或按“ESC”键，均可代替用鼠标单击该按钮的操作，应设置该按钮的Caption属性值为_取(&C) _(11)___，并且设置其__(12)__属性值为__（13）__。 10、在过程内用_（14）__声明的变量为静态变量，在执行一个过程结束时，过程中所用到的Static变量的值会保留，下次再调用此过程时，变量的初值是上次调用结束时被保留的值。 11、在模块文件中的声明部分用Global或__（15）__关键字声明的变量为全局变量。 12、在模块文件中的声明部分用__（16）__或__（17）__定义的变量为模块级变量。 13．计时器控件通过定期激活Timer事件，使得Timer控件（18）就执行一次Timer事件中的代码。 14．要获得滚动条的当前位置，可以访问通过（19）属性来实现。 15．关闭正在运行的VB窗口将自动触发的事件是（20）。 二、选择题 1．工程文件的扩展名是（ B ）。 A．vbg B.vbp C.vbw D.vbl 2.在以下窗体中没有采用的控件是（）。 A.文本框 B 垂直滚动条C．框架 D 命令 按钮 3．滚动条控件（如图所示）的Largechange属性所设置的是（）A．单击滚动条和滚动箭头之间的区域时，滚动条控件Value属性值的改变量 B．滚动条中滚动块的最大移动位置 C．滚动条中滚动块的最大移动范围 D．滚动条控件无该属性 4、用于从字符串左边截取字符的函数是（） Ａ、Ltrim( )Ｂ、Trim( )Ｃ、Left( )Ｄ、Instr( ) 5、可获得当前系统日期的函数是（A） Ａ、Date( )Ｂ、Time( )Ｃ、IsDate( )Ｄ、Year( ) 6、退出For循环可使用的语句为（） Ａ、Exit ForＢ、Exit DoＣ、End ForＤ、End Do 实验三 第1题四则运算题 设计如下窗体,为五个命令按钮编写5段代码完成四则运算及退出程序,其中在计算除法时,如果第二个数就是零,在消息框中显示信息“除数为零”。 Public Class Form1 Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a + b End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a - b End Sub Private Sub Button3_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button3、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text TextBox3、Text = a * b End Sub Private Sub Button4_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button4、Click Dim a, b As Single a = TextBox1、Text b = TextBox2、Text 客观题_0001 试卷总分：100 测试时间：240 单项选择题判断题 一、单项选择题（共20 道试题，共80 分。） 1. 用户在组合框中输入或选择的数据可以通过一个属性获得，这个属性是（）。 A. List B. Listindex C. Text D. Listcount 2. 在设计菜单时，如果要在菜单中加入一个菜单分隔条，则菜单分隔条的标题必须设置 为（）。 A. 加号（+） B. 减号（-） C. 星号（*） D. 感叹号（!） 3. 保存新建的工程时，默认的文件夹是（）。 A. My Document B. VB98 C. "\ " D. Windows 4. 要清除列表框的所有内容，可用（）方法来实现。 A. RemoveTtem B. Cls C. Clear D. 以上均不可以 5. 用标准工具栏中的工具按钮不能执行的操作是（）。 A. 添加工程 B. 打印源程序 C. 运行程序 D. 打开工程 6. 改变驱动器列表框的Drive属性值，将激活（）事件。 A. Change B. Scoll C. KeyDown D. KeyUp 7. 下列语句语法正确的是（）。 A. a=1 b=2 c=3 B. a=l：b=2：c=3 C. a=1，b=2，c=3 D. a=1；b=2；c=3 8. 要在窗体Form1内显示“myfrm”，使用的语句是（）。 A. Form. print "myfrm" B. Form.caption="myfrm" C. Form1.print "myfrm" D. Form1.caption="myfrm" 9. 图象框Image没有的属性是（）。 A. Picture B. Appearance C. AutoRedraw D. 以上属性都没有 10. 可获得字符的ASCII码的函数是（）。 A. Val VB期末考试试卷及答案 一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 B 编写代码 C 设置属性 D 添加Active X控件 5. 下面控件中，没有caption属性的是（ B ） A 框架 B 组合框 C 命令按钮 D 复选按钮 6. 在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（ B ） A MultiLine B PasswordChar C Text D selText 7. 若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列关于过程叙述不正确的是（ D ） A 过程的传值调用是将实参的具体值传值传递给形参 B 过程的传址调用是将实参在内存的地址传递给形参 C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D 无论过程传值调用还是传地址调用，参数传递都是双向的 9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为Form2的窗 体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（ C ） A 在Form1的Load事件过程中加入语句Load Form2 B 在Form2的Load事件过程中加入语句Form2.Show C 在“过程属性”对话框中把“启动对象”设置为Form2 大学V B考试题库 一、单项选择题 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/9f9001129.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 B、将控件的TabStop属性设置为True 第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、Dim B、Public C、Private D、Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、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 页脚内容1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、10 D、14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、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 页脚内容2 V B期末考试试卷及答 案 文档编制序号：[KK8UY-LL9IO69-TTO6M3-MTOL89-FTT688] V B期末考试试卷及答案一·选择题 1.Visual Basic是一种面向对象的程序设计语言，构成对象的三要素是（ B ） A属性、控件和方法 B属性、事件和方法 C窗体、控件和过程 D控件、过程和模块 2. 所有控件都有一个共同的属性，这个属性是（ C ） A text B font C name D caption 3. 下列叙述中错误的是（ A ） A 工程文件扩展名是.vbg B 标准模块文件的扩展名是.bas C 窗体模块的扩展名是.frm D 类模块的扩展名是.cls 4. 当要编写一个新的Visual Basic程序时，所做的第一件事是（ A ） A 新建一个工程 B 编写代码 C 设置属性 D 添加Active X控件 5. 下面控件中，没有caption属性的是（ B ） A 框架 B 组合框 C 命令按钮 D 复选按钮 6. 在文件框中输入字符时，若只显示某个字符，如（*），应设置属性是（ B ） A MultiLine B PasswordChar C Text D selText 7. 若要将窗体从内存中卸载出去，其实现的方法是（ D ） A Show B Hide C Load D UnLoad 8. 下列关于过程叙述不正确的是（ D ） A 过程的传值调用是将实参的具体值传值传递给形参 B 过程的传址调用是将实参在内存的地址传递给形参 C 过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的 D 无论过程传值调用还是传地址调用，参数传递都是双向的 9. 某人创建1个工程，其中的窗体名为Form1，之后又添加了1个名为 Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要 做的工作是（ C ） A 在Form1的Load事件过程中加入语句Load Form2 B 在Form2的Load事件过程中加入语句Form2.Show C 在“过程属性”对话框中把“启动对象”设置为Form2 D 在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设 置为2 10. 以下关于文件的叙述中，正确的是（ B ） A 以Output方式打开一个不存在的文件时，系统将显示出错信息 09vb模拟测试卷 满分：70分 姓名：________ 1、单项选择题(本题共计40分) 1、VisualBasic是用于开发________环境下的应用程序的工具。( ) A、DOS B、Windows C、DOS和Windows D、UNIX 2、对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做____过程。( ) A、方法 B、事件 C、调动 D、编译 3、VisualBasic中的窗体文件的扩展名是____________。( ) A、.reg B、.frm C、.bas D、.vbp 4、一只白色的足球踢进球门，则白色、足球、踢、进球门是________。( ) A、属性、对象、方法、事件 B、属性、对象、事件、方法 C、对象、属性、方法、事件 D、对象、属性、事件、方法 5、下面________语句，可以将列表框List1中当前选定的列表项的值替换成“ABC”。( ) A、List1.AddItem“ABC”，List1.ListIndex B、List1.Text=“ABC” C、List1.List(List1.ListIndex)=“ABC” D、前三项均可 6、在VB中，下列关于控件的属性或方法中，搭配错误的有________个。 ①Timer1.Interval ②List1.Cls ③Text1.Print ④List1.RemoveItem ⑤Vscroll1.Value ⑥Picture1.Print ( ) A、0 B、1 C、2 D、3 7、当对象失去焦点时，将会发生____________事件。( ) A、GetFocus B、LostFocus C、Focus D、SetFocus 8、对于一个含有计时器控件的窗体，每经过一段由________属性指定的时间间隔，就会产生一个Timer事件。( ) A、Name B、Enabled C、Caption D、Interval 9、在设计列表框时，若实现输入多行文字的目的，应使用____________键实现文本的换行。( ) A、Enter B、Alt+Enter C、Ctrl+Shift+Enter D、Ctrl+Enter 10、将数据项“China”添加到列表框(Listl)中成为第一项应使用____________语句。( ) A、Listl.Addltem "China",0 B、Listl.Addltem "China",1 C、Listl.Addltem 0,"China" D、Listl.Addltem 1,"China" 11、函数Cint(–3.5)，Int(–3.5)，Fix(–3.5)的值分别是________。( ) A、-3，–4，–3 B、-4，–4，–3 C、-3，–4，–4 D、-4，–3，–3 12、假定变量Logic类型是Boolean，下面赋值语句________是正确的。( ) A、Logic = ‘True’ B、Logic = .True. C、Logic = # True # D、Logic = 3<4 13、下列语句中不能正常执行的是________。( ) A、print +32758+10 B、print 5+9=15 C、print "65"+12 D、print "65"&12 14、在窗体Form1上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name 属性为Command1），程序如下。执行后结果为___________。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_load()大学VB期末考试试题
大学VB考试卷试题库题集.doc
大学vb课程题库全集
VB期末考试试题 B卷
大学计算机VB程序设计考试题目
2020年国家开放大学电大《VB程序》形成性考核题库
VB期末考试考卷及答案
大学VB考试题库及答案
VB期末考试试题及答案 (1)
VB期末考试试卷及答案
南京工业大学vb期末题库3