2023年VB期末试卷

2004/2023年第二学期计算机程序设计（vb）期末考试（a）卷。

考生注意：所有回答写在答题卡或答题页上。考毕只交答题卡和答题页，请保管题卷以备讲评用。

一、判断题（共10分，每题1分，在答题卡上回答，a表示正确，b表示错误）

二、单选题（共20分，每题2分）

三、程序填空选择题（共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) m(k) [c] m(p)

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

i = 1sum = 0

do while __29)__

if __30)__then sum = sum + 1

i = i + 1

loopif sum = 0 then

msgbox "没有找到！"

elsemsgbox "找到了" &str(sum) &个"

end if

end sub

28) [a] len(str1) [b] val(str1) [c] chr(str1) [d] str(str1)

29) [a] i = length - 1 [b] i > length - 1 [c] i < length - 1 [d] i = length

30) [a] left(str1, 3) =redb] str1 = red"

[c] mid(text1, i, 3) =str1 [d] mid(str1, i, 3) =red"

四、程序阅读题（共20分，每题5分）

1．请写出从键盘输入”12”，"a5"和“ff”后，窗体的输出结果。

private sub form_click()

dim shex as string, x as string * 1

dim ndec as long, n as integer, i as integer, ai as integer

shex = ucase(inputbox("请输入一个字符串"))

n = len(shex)

ndec = 0

do while i < n

x = mid$(shex, n - i, 1)

select case x

case "a" to "f" :ai = asc(x) -asc("a") 10

case "0" to "9" :ai = val(x)

end select

ndec = ndec + ai * 16 ^ i

i = i + 1

loopprint shex; "h ="ndec

end sub

2．请写出以下程序运行后两次单击命令按钮的输出结果。

dim x as integer

2023年VB期末试卷

2023年VB期末试卷

06年vb期末试卷

2023年VB试卷

其他用户还读了