2023年6月高中信息技术会考。
算法与程序设计题（第一套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1．有如下visual basic程序段：
a = 4b = 5
a = a / 2
c = abs(a - b)
该程序段运行后，变量c的值为。
2. 有如下visual basic程序段：
a = 9b = command button"
c = len(b)
if a > 0 and a < c then
= mid(b, a, 6)
else= "error"
end if
该程序段运行后，在标签label1上显示的是。
3. 打开考生文件夹下“vb”文件夹中的“该vb程序的功能是：单击“开始”按钮command1，小熊开始“滑冰”；单击“停止” 按钮command2，“滑冰”动作停止；单击“退出”按钮command3，结束并退出程序。
程序运行界面如图所示：
完成以下操作：
1）将命令按钮command1的caption属性值设置为“开始”；
2）为“停止” 按钮command2添加click事件过程，并将“vb”文件夹下 “文件中的所有**复制到该事件过程中。调试程序正确，并保存窗体文件和工程文件。
4．郑均收集了某公司生猪生长各阶段的产肉比数据，他设计了如下visual basic 程序进行数据处理。程序运行界面如图所示，左边列表框list1中显示生猪生长的各阶段编号及对应的产肉比，单击“排序”按钮command1后，右边的列表框list2中显示按产肉比从高到低排序后的数据。所收集到的不同生长阶段编号和对应的产肉比数据已分别保存在数组a和数组b中。
排序部分程序如下：
dim a(1 to 10) as string数组a用于存储阶段编号。
dim b(1 to 10) as single数组b用于存储产肉比。
private sub command1_click()
dim i as integer, j as integer, k as integer, t as single, s as string
for i = 1 to 9
k = ifor j = i + 1 to 10
ifthen k = j
next j
if k <>i then
s = a(i): a(i) =a(k): a(k) =s
t = b(ib(k) =t
end if
next i
for i = 1 to 10
a(istr(b(i))
next i
end sub
private sub form_load()
'此过程用于对数组a和数组b进行赋值，并显示在list1中，**略。
end sub
1）解决此问题采用的算法是填：选择排序/冒泡排序）
2）在程序和划线处填入适当的语句或表达式，将程序补充完整：
程序中①划线处应填入。
程序中②划线处应填入。
2023年6月高中信息技术会考。
算法与程序设计题（第二套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1．有如下visual basic程序段：
a = 3.14
b = 20
c = int(a) +b
该程序段运行后，变量c的值为。
2. 有如下visual basic程序段：
a = 360"
b = val(a)
c = len(a)
if b > c then
= "取数值"
else= "取字符"
end if
该程序段运行后，在标签label1上显示的是。
3. 打开考生文件夹下“vb”文件夹中的“该vb程序的功能是：单击“开始”按钮command1，小熊开始“滑冰”；单击“停止” 按钮command2，“滑冰”动作停止；单击“退出”按钮command3，结束并退出程序。
程序运行界面如图所示：
完成以下操作：
1）将命令按钮command2的caption属性值设置为“停止”；
2）为“开始” 按钮command1添加click事件过程，并将“vb”文件夹下 “文件中的所有**复制到该事件过程中。调试程序正确，并保存窗体文件和工程文件。
4. 张松编写了一个用求π近似值的visual basic程序。主要算法：
将问题转化为求，其中 (n为大于1的整数)。程序运行界面如图所示，在文本框text1中输入计算项数n（计算到第n项），单击“计算”按钮command1，在文本框text2中输出π值。
程序**如下：
private sub command1_click()
dim n as integer, i as integer, j as double, s as double
n = val(
j = 1s = 1
for i = 2 to n
j = j * i - 1) /2 * i - 1))
snext i
end sub
1）解决此问题采用的算法是填：解析算法/递归算法）
2）在程序和划线处填入适当的语句或表达式，将程序补充完整：
程序中①划线处应填入。
程序中②划线处应填入。
2023年6月高中信息技术会考。
算法与程序设计题（第三套）
四、程序设计题（本题有4小题，第1－3小题，每小题4分，第4小题6分，共18分）
1．有如下visual basic程序段：
a = 6b = hello!"
c = a ^ 2) -len(b)
该程序段运行后，变量c的值为。
2. 有如下visual basic程序段：
a = 10
b = 6c = 5
if a + b > c and b + c > a and c + a > b then
= "yes"
else= "no"
end if
该程序段运行后，在标签label1上显示的是。
3. 打开考生文件夹下“vb”文件夹中的“该vb程序的功能是：单击“开始”按钮command1，小熊开始“滑冰”；单击“停止” 按钮command2，“滑冰”动作停止；单击“结束”按钮command3，结束并退出程序。
程序运行界面如图所示：
完成以下操作：
1）将命令按钮command3的caption属性值设置为“结束”；
2）为“停止”按钮command2添加click事件过程，并将“vb”文件夹下 “文件中的所有**复制到该事件过程中。调试程序正确，并保存窗体文件和工程文件。
4．角谷猜想。对任意一个大于1的正整数n，进行如下运算：若n是奇数时，n的值替换为3n+1，若n是偶数时，n的值替换为n/2；重复以上运算，n最终变为1。
下面程序用于验证角谷猜想，程序运行界面如图所示。在文本框text1中输入一个正整数，单击“验证”按钮command1，在列表框list1中输出每一步的运算过程。
解决此问题的算法流程图如图所示：
程序**如下：
private sub command1_click()
dim n as single, i as integer
n = val(
清除列表框list1中的内容。
if int(n) "请输入大于1的正整数！" elsei = 0 do while if n mod 2 = 0 thennelse n = n * 3 + 1 end if i = i + 1 str(istr(n) loopend if end sub 1）解决此问题的算法是填：解析算法/对分查找） 2）在程序和划线处，填入适当的语句或表达式，把程序补充完整： 程序中①划线处应填入。 程序中②划线处应填入。 2011年浙江省信息技术会考试题。第6套。选题题 算法 8 在visual basic中，下列能作为变量名的是。a 5a b if c abs d tea 9 将数学表达式写成visual basic表达式，正确的是。a abs b b 4 a c b sqr b b 4 a c c str b b... 初中信息技术教师程序设计 vb 竞赛。试题。一 选择题 1 要想改变一个窗体的标题内容，则应设置以下哪个属性的值 a nameb fontname c caption d text 2 在窗体上画一个文本框 一个标签和一个命令按钮，其名称分别为text1 label1和command1,然后编写如下... 一 选择题。1 用计算机解决问题的步骤一般为 d 编写程序 设计算法 分析问题 调试程序 abcd.2 下面不属于算法表示工具的是 c a 自然语言b 流程图c 机器语言d 伪 3 结构化程序设计由三种基本结构组成，下面哪个不属于这三种基本结构之一 b a.顺序结构b.环形结构c.选择结构d.循环结...2023年浙江省信息技术会考算法与程序设计
初中信息技术教师程序设计试题
算法与程序设计复习