某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时，生成的数字序列如图所示。代码如下： Private Sub Command1_Click() Dim n As Integer, i As Integer, s As Str...

题型：单选题题类：常考题难易度：容易

浙江省温州市十校联合体2017届高三上学期期末考试技术试题（信息技术部分）

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n n-1 n-2 … 3 2 1 2 3 … n-2 n-1 n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()

Dim n As Integer, i As Integer, s As String

n = Val(Text1.Text)

s = ""

For i = 1 To 2 * n - 1

If i <= n Then ① Else ②

Next i

Label1.Caption = s

End Sub

为实现以上功能，划线①②处应分别填写（）

A、①s = s & Str(n - i + 1) ②s = s & Str(i - n + 1) B、①s = Str(n - i + 1) ②s = Str(i - n + 1) C、①s = s & Str(i - n + 1) ②s = s & Str(n - i + 1) D、①s = Str(i - n + 1) ②s = Str(n - i + 1)

举一反三

小杨在上信息技术课时，为了计算100以内所有能被7整除的数之和，画了如下图所示流程图，则空白处应该填写的赋值语句是：（）

某算法流程图如图所示，执行该算法，输出s的结果是（）

编写VB程序，实现如下功能：单击“启动”按钮Command1，在列表框List1内每隔2秒输出一个由30个大、小写字母组合成的字符串，运行界面如图所示，程序代码如下。(字母A和字母a的ASCII码值分别为65、97)

有如下VB程序段：

S=Text1.Te×t

For i=1 To Len(s)

c=Mid(s，i，1)

If c>=“0”And c<=“9”Then

m=m+1

Elself c>=“a”And c<=“z”Then

n=n+1

Else

t=t+1

End If

Next i

Label1．Caption：Str(t)

在文本框Text1输入“as674ER29，86Gu”。(不包括双引号)，执行程序后，标签Label1显示：（）

某算法的流程图如图所示。执行流程图后，变量i和变量s的值分别为（）

有如下VB程序段

Const n = 8

Dim a(1 To n) As Integer

For i = 1 To n

a(i) = Int(Rnd * 20)

Next i

x = n \ 2

For i = x To 2 Step -1

For j = 1 To i - 1

If a(j) < a(i) Then

t = a(j): a(j) = a(i): a(i) = t

End If

Next j

Next i

i = n

Do While i > x + 1

k = i

For j = i - 1 To x + 1 Step -1

If a(j) > a(k) Then k = j

Next j

If k <> i Then

t = a(k): a(k) = a(i): a(i) = t

End If

i = i - 1

Loop

执行完这段代码后，数组 a 中各个元素的值可能的是（）

相关试卷

公司介绍

服务介绍

帮助中心