2004/2023年第二学期计算机程序设计（vb）期末考试（a）卷。
考生注意：所有回答写在答题卡或答题页上。考毕只交答题卡和答题页，请保管题卷以备讲评用。
一、判断题（共10分，每题1分，在答题卡上回答，a表示正确，b表示错误）
窗体中只能有一个命令按钮设置default属性为true，在任何情况下，按键，就相当于执行该命令按钮的click()事件。
直线控件没有left和top属性。
在vb工具箱中双击控件图标，可以在窗体中添加控件，但不能直接将控件引入到框架中。
style属性为0和2的组合框由于下拉，故不能多选，但style属性为1的组合框不是下拉的，所以可以多选。
单选按钮和复选框都没有双击事件。
cls方法能清除窗体中用line和circle方法画的直线、矩形和圆形，但不能清除窗体中用直线控件和形状控件产生的直线、矩形和圆形。
打开”对话框和“另存为”对话框，除了默认的标题栏文字不同之外，其他内容与用法均相同，因此，也可以用“另存为”对话框来指定要打开的文件。
当**框的autosize属性为true，而影像框的stretch属性为false时，两者显示**的效果相同。
pset (x, y)方法在(x, y)处画一个点，而point(x, y)函数返回(x, y)点的颜色值。
若要用鼠标在文本框中右击能弹出mnuedit的快捷菜单，只要在该文本框的mouse_down()事件中，添加一条 popupmenu mnuedit 语句便可。
二、单选题（共20分，每题2分）
vb提供了许多目录和文件操作语句，其中删除文件夹语句的关键词是 。
a] chdir [b] rmdir [c] killdir [d] deldir
标签的wordwrap = true 可以固定标签宽度来显示多行文本，它必须和属性一起设置。
a] multiline [b] autosize [c] alignment [d] width
表达式4 + 9 \ 4 * 9 / 7 mod 3的值是 。
a] 4 [b] 5 [c] 6 [d] 7
在默认的情况下，由dim axyz(3, 2 to 4) as string * 2语句定义的数组占用___字节的内存空间。
a] 24 [b] 18 [c] 9 [d] 48
以下叙述中错误的是 。
a] 以。bas为扩展名的文件是标准模块文件，是一个纯**性质的文件。
b] 编程人员不能改变窗体或控件的事件名称，但是可以改变控件的名称
c] 在visualbasic工具箱中的所有控件都具有宽度（width）和高度（height）属性。
d] 用hide方法只是隐藏一个窗体，不能从内存中清除该窗体。
要使得文件列表框file1中，只显示文件后缀名为bmp和jpg的**文件，应设置其pattern属性为___
a] "bmp|*.jpg" [b] "bmp", jpg" [c] "bmp;*.jpg" [d] "bmp, *jpg "
执行以下**后，窗体上打印出的结果是___
a = 1 : b = 5 : c = 1
print c = b > a
a] true [b] false [c] -1 [d] 出错。
在文本框text1中用鼠标拖动选中文本块时，如果 = 15， =10，那么的属性值与___的函数值相同。
a] mid(text1,14,10) [b] mid(text1,15,10) [c] mid(text1,16,10) [d] mid(text1,10,15)
当驱动器列表框drive1中的驱动器符改变时，为使文件夹列表框dir1中显示的路径也作相应的改变，应当在的change事件中添加**。
a] drive1， =b] dir1， =
c] drive1， =d] dir1， =
sub过程与function过程最根本的区别是___
a] 前者可以使用call或直接使用过程名调用，后者不可以。
b] 后者可以有参数，前者不可以。
c] 两种过程参数的传递方式不同。
d] 后者可通过函数名返回值，但前者不能通过过程名返回值。
三、程序填空选择题（共20分，每空2分）
阅读下列程序说明和相应的程序，在每小题提供的若干可选答案中，挑选一个正确答案。
1． 单击命令按钮cmd2，由随机函数产生50个100 — 300之间（包括100和300）的随机整数。放入第一个数组中，将它们中的偶数放入另一个数组，再对偶数数组按从大到小的顺序进行排序，先后将这三组数值显示在窗体中。
private sub cmd2_click()
dim n%(50), m%()i%, j%, t%, p%
clsprint "原始数组："
for i = 1 to 50
n(i) =21)__
print n(i),if i mod 5 = 0 then print
if n(i) mod 2 = 0 then j = j + 1 : redim preserve m(j) :m(j) =n(i)
next i
print "偶数数组："
for i = 1 to j
print m(i),if i mod 5 = 0 then print
next i
print : print "排序后的偶数数组："
for i = 1 to j - 1
p = ifor __22)__
if __23)__then p = k
next k
if i <>p then __24)__
print m(i),if i mod 5 = 0 then print
next i
print m(i)
end sub
21) [a] int(100 + rnd() 201b] int(200 + rnd() 101)
[c] int(101 + rnd() 199) [d] int(100 + rnd() 200)
22) [a] k = i + 1 to 50 [b] j = i + 1 to 50 [c] j = i + 1 to k [d] k = i + 1 to j
23) [a] m(i) 24) [a] t = m(p) :m(i) =m(p): m(i) =t [b] t = m(i) :m(p) =m(i) :m(p) =t [c] m(i) =t : t = m(p) :m(p) =m(i) [d] t = m(i) :m(i) =m(p) :m(p) =t 2. 窗体上有一个列表框list1和一个文本框text1，在属性窗口已设置文本框的multiline属性为true，scrollbars属性为2-verticle。程序启动或单击窗体后，随机生成20个二位正整数，作为列表项添加到列表框list1中，单击选择list1的一个列表项，求出选中的二位数的全部因子（包括1和该数本身），在文本框text1中逐行显示。 private sub form_load() randomize end sub private sub form_click() dim i as integer text1 = for i = 0 to 19 int(rnd * 90 + 10) next i end sub private sub list1_click() dim i as integer, x as integer x = val( text1 = for i = 1 to x if x mod i = 0 then text1 = 27)__ next i end sub 25) [a] call form1_click [b] form_click() c] form1_click [d] form_click 26) [a] [b] [c] list1d] =0 27) [a] i & vbcrlf [b] text1 & i & vbcrlf [c] x & vbcrlf [d]text1 & x & vbcrlf 3. 下列findstr过程是用于在一个字符串变量中查找"red"，并用输出对话框给出找到的个数或"没有找到"的查找结果。 option explicit public sub findstr() dim str1 as string, length as integer, sum as integer, i as integer str1 = inputbox("请输入一个字符串") length = 28)__ 2004 2005年第二学期计算机程序设计 vb 期末考试 a 卷。考生注意 所有回答写在答题卡或答题页上。考毕只交答题卡和答题页，请保管题卷以备讲评用。一 判断题 共10分，每题1分，在答题卡上回答，a表示正确，b表示错误 二 单选题 共20分，每题2分 三 程序填空选择题 共20分，每空2分 阅... 2006年05级vb程序设计期末考试卷。注意 所有答案写在单张的答题卷上。一 单选题 本题共20分，每小题2分 二 程序填空题 本题共30分，每小题2分 阅读下列程序说明和程序 在每小题提供的若干可选项中，挑选一个最佳的选项。1 程序说明 单击命令按钮，输入n 0 n 10 后，在窗体上输出如图所示... 石家庄铁道大学2011 2012学年第2学期。2011 级本科班期末考试试卷 b 课程名称 visual basic程序设计任课教师考试时间 120 分钟。考试性质 学生填写 正常考试 缓考 补考 重修 提前修读 注意 所有答案写在答题纸上，写在试卷上无效！一 单项选择题 每题1分，共30分 1.在...2023年VB期末试卷
06年vb期末试卷
2023年VB试卷