2. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序说明】将列表框控件list1所有表项存入byte类型数组a后，将所有其值等于另外两个数组元素之和的数组元素添加到list2（一个数组元素只能添加一次）。
程序】private sub command1_click()
dim i as byte, j as byte, k as byte, n as byte, x as booleann =
for i = 0 to (6
a(i + 1) =
next i
for i = 1 to n
x = true
for j = 1 to n
for k = 1 to n
if (7and x and a(i)=a(j)+a(k) then _
a(i): 8
next k
next j
next i
end sub
供选择的答案】
5) a、redim a(n) as byte b、dim a(n) c、dim a(n) as byte d、redim a(n)
6) a、nb、n + 1 c、n - 1d、listcount
7) a、i<>j and i<>k and j<>k b、i=j and i=k and j=k
c、i<>j or i<>k or j<>k d、i=j or i=k or j=k
8) a、x = not x b、x = true c、x = false d、exit
3. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序说明】运行时单击命令按钮command1后，调用定时器控件在**框控件p1中画点、以动画方式逆时针方向绘制一个红色边线的圆。程序】
private sub form_load()
= 40: =false
end sub
private sub f(rou as single, sait as single)
x = rou * 10) (sait * 3.141593 / 180)
y = rou * 11) (sait * 3.141593 / 180)
end sub
private sub command1_click()
(-100, 100)-(100, -100): true
end sub
private sub timer1_timer()
call f(80, k): k=k+0.5
if k > 360 then = false
end sub
供选择的答案】
9) a、 =0 b、static x as single,y as single
c、 =vbred d、dim x as single,y as single
10) a、ctan b、tan c、cosd、sin
11) a、abs b、sin c、tand、cos
12) a、dim k as doubleb、dim k as single
c、static k as doubled、static k as single
4. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序】private sub command1_click()
dim m as integer, i as integer, f as integer
m = val(inputbox("m=")
i = 1: f = 1
do while f <=m
i = i + 1: f = f * i
loopprint i
end sub
问题】13) 运行时输入15，窗体上显示： a、3 b、4 c、5 d、2
14) 运行时输入17，窗体上显示： a、2 b、3 c、4 d、5
15) 运行时输入726，窗体上显示： a、8 b、7 c、6 d、5
16) 运行时输入1，窗体上显示： a、2 b、3 c、4 d、5
5. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序】private function f(a as integer) as string
dim k as integer
do until a = 0
k = a mod 16
if k < 10 then
f = chr(asc("0") k) +f
elsef = chr(asc("a") k - 10) +f
end if
a = a \ 16
loopend function
private sub command1_click()
dim x as integer
x = val(inputbox("x=")
print f(x)
end sub
问题】17) 运行时输入8，显示：
a、1000 b、8 c、4d、3
18) 运行时输入123，显示：
a、7b b、b7 c、321 d、23
19) 运行时输入321，显示：
a、21 b、414 c、141 d、213
20) 运行时输入1024，显示：
a、400 b、10 c、16 d、40
6. 阅读下列程序说明和程序，在每小题提供的若干可选答案中，挑选一个正确答案。
程序】private sub command1_click()
dim x as integer, y as integer, i as integer
x = val(inputbox("x=")
open ""for input as #
do while not eof(1)
input #1, y
i = i + 1
if x = y then exit do
loopif not eof(1) then print y;
print i
close #
end sub
问题】若文件存放了这八个数。
21)单击command1，输入5后，窗体显示：
a、3 5 b、11 c、5 d、5 3
22)单击command1，输入13后，窗体显示：
a、6b、13 6 c、6 13 d、13
23)单击command1，输入23后，窗体显示：
a、23 9 b、19 8 c、8 d、无显示结果。
24) 单击command1，输入1后，窗体显示：
a、8b、0c、-1 d、1
二、 程序编写(每题14分，共28分)
1. 编制事件过程command1_click，输入10个整数到一维数组，判断这10个数按照输入的顺序能否组成等差数列（显示结果为“是等差数列”或“不是等差数列”）。
2. 编制sub过程，将m行n列的二维数组每一行，同除以该行上绝对值最大的元素。
2023年上半年浙江省高等学校计算机等级考试。
二级visual basic程序设计答卷。
请在答卷上填写学校名称、准考证号和姓名，并将你的准考证号的后五位填写在答卷第1页右下角的指定位置内。
一、 程序阅读与填空。
请在各小题正确选项的对应位置处填“√”24小题，每小题3分，共72分）
准考证号后五位
第二部分程序编写（2小题，每小题14分，共28分）
1. 编制事件过程command1_click，输入10个整数到一维数组，判断这10个数按照输入的顺序能否组成等差数列（显示结果为“是等差数列”或“不是等差数列”）。
2. 编制sub过程，将m行n列的二维数组每一行，同除以该行上绝对值最大的元素。
private sub f(a() as single, m as integer, n as integer)
2019vb上机
一 题目。1 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。界面如下 要求使用for循环，运行结果 1307674368000 2 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。要求使用do loop until循环 3 单击命令按钮，能求出15的阶乘，并将结果显示在文本框中。要...
外语等级考试报名通知
cwl jl jwc zy049 01 重庆文理学院教学部。院教 2012 11号。关于2012年第一次全国大学英语等级考试报名的通知。各二级学院及相关考生 2012年第一次全国大学英语。四 六级 小语种 应用能力a级考试定于2012年6月举行 具体时间另行通知 现将报名的有关事项通知如下 一 报名...
2019心理咨询师考试 心理问题等级
心理问题等级划分从健康状态到心理疾病状态一般可分为4个等级 健康状态 不良状态 心理障碍 心理疾病。一 心理健康状态。心理健康状态与非健康状态的区分标准一直是心理学界讨论的话题，不少国内外心理学学者根据自己研究调查的结果提出了多种心理健康标准。笔者在临床心理学实践工作中，总结了前人的理论与经验，提出...