- 二一组卷

题型：单选题题类：常考题难易度：普通

浙江省之江教育评价联盟2019-2020学年高三上学期信息技术第二次联考试卷

为了判断一个三位正整数的各个位置之和是否是9的倍数，下列程序划线处应填入的语句是（）

x = ①

t = 0: s = ""

Do While x <> 0

t = ②

x = x \ 10

Loop

If ③ Then Then Then s = "是9的倍数" Else s = "不是9的倍数"

A、①Int(Rnd * 900) + 100 ② x Mod 10 ③ t Mod 9 = 0 B、①Int(Rnd * 900) + 100 ② t + x Mod 10 ③ t Mod 9 = 0 C、①Int(Rnd * 899) + 100 ② t + x Mod 10 ③ t / 9 = 1 D、①Int(Rnd * 900) ② t + x \ 10 ③ t \ 9 = 1

举一反三

将数学表达式 $\text{[math]}$ 写成VB表达式正确的是（）

有如下Visual Basic程序段：

S=0：k=1

Do while k <=4

If 8/k >=3 Then s=s＋k

k=k＋1

Loop

该程序段运行后，变量s和k的值分别是（）

VB中，表达式的值不等于4的是（）

小明编写了一个求真分数精确值的VB程序。程序运行时，在文本框Text1中输入被除数，在文本框Text2 中输入除数，并保证被除数小于除数，单击“计算”按钮Command1，在标签Label3中显示结果(最多计算到第20位)。程序运行界面如图所示。

问题描述：有n个互不重复的数字，值的范围是[1，n]，分别保存在数组元素a(1)到a(n)中，若数字i保存在a(i)，则认为数字i在正确的位置上。若干个相互占用了位置的数字称为一组，一个在正确位置上的数字单独为一组，比如6个数字2，3，1，4，6，5分别保存在数组元素a(1)到a(6)中，则2、3、1为一组，4为一组，6、5为一组。该程序的功能为输出每组的情况。运行界面如图:

有如下VB程序段：

Dim i As Integer, sum As Integer

Dim a(1 To 6) As Integer, b(1 To 6) As Integer

sum = 0

a(6) = 18: a(5) = 7: b(6) = 14: b(5) = 16

For i = 4 To 1 Step -1

a(i) = a(i + 2) - a(i + 1)

b(i) = b(i + 2) - a(i)

If b(i) Mod 3 = 0 Then sum = sum + b(i)

Next i

Text1.Text = Str(sum)

该程序段运行后，文本框Text1中显示的内容是（）

相关试卷

公司介绍

服务介绍

帮助中心