2019VB模拟试题二

1、*求7!(7!=1*2*3...6*7)的值。private sub command1_click()dim a as singlea =

for i = 1 to 7a =next iprint aend sub（4分）

i2、*对10个100以内的整数用选择法按递增顺序排序。private sub command1_click()dim a(10) as integer, t as integerdim i as integer, j as integerfor i = 1 to 10a(i) =int(print a(i);next i: printfor i = 1 to 9for j = i + 1 to

if a(i) >a(j) then t = a(i): a(i) =a(j): a(j) =tnext jnext i

for i = 1 to 10print a(i);next i: printend sub（4分）

3、*随机产生n个两位整数，求出其中的最大值和最小值。private sub command1_click()

dim a(100) as integer, n as integer, i as integerdim min as integer, max as integer

inputbox(vbcrlf + vbcrlf + n=")

print "产生的随机数为"randomizefor i = 1 to n

a(i) =int(rnd * 90) +10print a(i);next i: print

min = a(1): max = minfor i = 2 to

if a(i) >max then max = a(i)if a(i)

print "最大值为"; maxprint "最小值为"; minend sub（4分）

4、*统计二维数组a(5×5)的左下三角中奇数元素的个数。private sub command1_click()dim a(5, 5) as integerfor i = 1 to 5for j = 1 to 5

i, j) =int(rnd * 100): print a(i, j);

next jprintnext in = 0

for i = 1 to 5for j = 1 to iif a(i, j) mod 2 =next j

then n = n + 1

next i

print "左下三角中奇数元素的个数为：";nend sub（4分）

5、*设计一个求两个数的最大公约数的函数过程。*程序**如下：option base 1private function

byval m%, byval n%) as integer

if m < n then t = m: m = n: n = tdo

r = m mod n

if r = 0 then exit dom = nn = rloopgcd =end function（4分）

6、*用子过程输出fibonacci（斐波那契）数列
..的前20项及前20项的和。*程序**如下：

private sub command1_click()dim s&, a%, b%, c%a = 0: b = 1

a + b

print aprint bfor i = 1 to 18fib a, b, cprints = s + c

next i

print "fibonacci（斐波那契）数列的前20项的和为：";send sub

private sub fib(a, b, c)c = a + ba = bb = cend sub（4分）

7、*编写一个登录的程序，如图{}所示。

运行过程：点击确定按钮时判断密码是否为“gong”，如果是则使用msgbox显示“欢迎你！”，如果不是则清空密码输入框，焦点重新定位到密码输入框。

private sub form_load() end sub

private sub command1_click()dim i as integerif = msgbox "登录成功"else

text =

ifend sub

附图5】（6分）

then三、编程题（2道小题，共20分）

1、*编写程序：

试求1到500以内能被3或者被5整除的数的个数。

2019vb上机

一 题目。1 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。界面如下 要求使用for循环，运行结果 1307674368000 2 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。要求使用do loop until循环 3 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。要...

2019vb试卷A

2011 2012学年第二学期vb期末考试卷答题纸 a卷 专业班级学号姓名。一 单选题 用铅笔把选中的方格涂黑 50 1 50分 二 填空题 每空占一行，每行写一个答案 20 2 40分 三 程序设计 5 2 10分 1 编写一sub过程，对一维数组a中的元素从小到大排序。private sub s...

2019VB上机

1题 目的 学会rgb 函数 rnd 函数的使用。学会select case结构的应用。训练编程思维。在窗体上不做任何控件。单击窗体，产生1至4之间的随机数。随机数是1，窗体背景色变红色。随机数是2，窗体背景色变绿色。随机数是3，窗体背景色变蓝色。随机数是4，窗体背景色变黑色。窗体参考图如下 使用s...