8.在窗体上一个命令按钮command1，编写command1的click事件过程，完成如下功能：
（1）编写一个子过程，计算1×2+2×3+……+（n-1）×n的值。
（2）输入n的值，将计算结果显示在窗体上。
VB课程试卷（A）卷第1页共3页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
3.执行语句s = len(mid(“VisualBasic”,1,6))后，s的值是(C)。
(A) Visual (B) Basic (C) 6 (D) 11
4.下列选项中，合法的变量名(B)。
(A) c%aaa (B) sum__3 (C) Else (D) 5persons
6.返回系统当前日期和时间的函数是(D)。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是(B)。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（D）属性设置成False。
Print x , y
14.下列程序的结果是________________。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
Next j
Next i
Print X
二.选择题(每小题1分,共12分)
1.以下叙述中,错误的是( )。
(A) Time()(B) Day() (C) Date()(D) Now()
6.运行以下程序后，x的值是( )。
x=2
fori= 1 to 10 step 2
x = x +i
nexti
(A) 25(B) 27 (C) 38(D) 57
7.要让一个控件不显示，应将该控件的（）属性设置成False。
(A) Caption (B) Enabled (C) Default (D) Visible
1.以下叙述中,错误的是(A)。
(A)对象的任何属性既可以通过属性窗口设定,也可以通过程序语句设定
(B)在VB中,对象所能响应的事件是由系统定义的
(C) VB中允许不同的对象使用相同名称的方法
(D) VB中的对象具有自己的属性和方法
VB课程试卷（A）卷第2页共3页
2.工程文件的扩展名为(C)。
(A) .fix (B) .bas (C) .vbp (D) .frm
9.写出如下程序的运行结果:___________
dim x!,y!
x=1.5
y=0.5
if x<>0 then
y=x+y
elseif y>0.5then
y=x
else
y=x*y
end if
print x,y
10.表示滚动条控件取值范围最大值的属性是_______________。
11.在Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_______________。
6.在同一个过程中，数组名不能与变量名______________，否则会出错。
7.在窗体上添加一个图片框控件（name属性为P1），要在运行时将位于C：盘根目录下名为p1.jpg的图形文件装入该图片框，则所使用的语句为：__________________________。
8.在多窗体程序中，显示一个窗体的方法是_______________。
12.下面程序运行后输出的结果是_________________。
For n = 1 to 20
if n mod 3<>0 then m = m+n\3
next n
print n
13.下面程序运行后输出的结果是_________________。
Dim a%, b%
x=5
y=6
x=x+y
y=x+y
一.填空题(每空1分,共16分)
1. VB应用程序至少有_窗体文件_、_工程文件_两种文件需要保存。
2.把 写成VB表达式_log(7)/log(2)+exp(4)*2/3_。
3.产生一个三位整数的表达式_int(rnd*900)+100或int(rnd*899)+100__。
4.在属性窗口中设置__ picture __属性，可以把指定的图形放入当前对象中。
ELSE
Print "此一元二次方程无实根！"
ENDIF
ENDIF
VB课程试卷（A）卷第3页共3页
3.输出100-1000之间的所有素数。
解：
dim i%,flag%,j%
For i=101 to 1000 step 2
Flag=0
For j=2 to int(sqr(i))
If i mod j =0 then
11.在Visual Basic中有一种控件组合了文本框和列表框的特性，这种控件是_组合框__。
12.下面程序运行后输出的结果是_____42_______。
For n = 1 to 20
if n mod 3<>0 then m = m+n\3
next n
print n
13.下面程序运行后输出的结果是____11 17_____。
Flag=1
Endif
Next j
If flag=0 then print i
Next i
4.求两自然数m,n的最小公倍数。
解：dim a%,b%,t%,i%
A=inputbox(“第1个数”)：B=inputbox(“第2个数”)
If a<b then
5.标签和文本框都用于显示文本，它们的主要区别是：____标签____中的文本是只读文本，
_____文本框_____中的文本是可编辑文本。
6.在同一个过程中，数组名不能与变量名___同名_____，否则会出错。
7.在窗体上添加一个图片框控件（name属性为P1），要在运行时将位于C：盘根目录下名为p1.jpg的图形文件装入该图片框，则所使用语句为p1.picture=loadpicture(“c:\p1.jpg”)_。
（A）0（B）1
（C）2（D）3
12.在窗体上有一个列表框控件List1，且其中含有若干列表项。则以下能表示当前被选中的列表项内容的是（）。
（A）List1.List（B）List1.ListIndex
（C）List1.Index（D）List1.Text
三.编程题(每小题4分,共32分)
1.用输入框输入x，根据下式计算对应的y，并在窗体上输出y的值。
10.以下关于图像框控件的说法中，错误的是（）。
(A)不可以通过Print方法在图像框中输出文本。
(B)清空图像框控件中图形的方法之一是加载一个空图形。
(C)图像框控件可以作为容器使用。
(D)用Stretch属性可以自动调整图像框中图形的大小。
11.当一个复选框被选中时，它的Value属性的值是（）。
VB课程试卷（A）卷第1页共2页
题号
一
二
三
四
五
六
七
八
九
十
总分
说明:本课程考试分为上机考试和笔试两部分,满分100分,其中上机占40分,笔试60分,本试卷为笔试试卷，卷面满分60分。
一.填空题(每空1分,共16分)
1. VB应用程序至少有______、______两种文件需要保存。
2.把 写成VB表达式_______________。
8.下列不属于文本框属性的是（）。
(A) Caption (B) Locked (C) Text (D) Font
9.使“多媒体技术”在当前窗体上输出的语句是（）。
(A) Print“多媒体技术”
(B) Picture.Print“多媒体技术”
(C) Printer. Print“多媒体技术”
(D) Debug. Print“多媒体技术”
Dim a%, b%
x=5
y=6
x=x+y
y=x+y
Print x , y
14.下列程序的结果是___23____。
For i = 1 to 4
X = 4
For j = 1 to 3
X = 3
For r =1 to 5
X = X + i
Next r
Next j
Next i
Print X
二.选择题(每小题1分,共12分)
7.编写窗体上命令按钮command1的click事件过程，完成如下功能：
（1）定义一个大小为100的数组A，其元素数值为随机产生的0~1000之间的数。
（2）编写一个子过程，将A（1）和A（100）交换、A（2）和A（99）交换、A（3）和A（98）交换，……，A（50）和A（51）交换。
（3）输出数组A，每行5个元素。
2.求一元二次方程 的两个实根。
解：dim a%,b%,c%
a= InputBox("a=")：b = InputBox("b=")：c= InputBox("c=")：D=B*B-4*A*C
IF A<>0then