- 二一组卷

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

浙江省高中信息技术 VB基本语句同步练习

下面程序段用于计算分段函数 $\text{[math]}$ 的值，不正确的是（）

A、If x<0 Then y=0 Else If x<1 Then y=1 Else y=x End If B、If x<0 Then y=0 Else If x<1 Then y=1 Else y=x End If End If C、If x<0 Then y=0 If x<1 Then y=1 If x>=1 Then y=x D、If x<0 Then y=0 If x>=0 and x<1 Then y=1 If x>=1 Then y=x

举一反三

【加试题】猜数字游戏。由用户选择需要猜测的数字长度后,电脑随机产生一串相应长度的数字，用户输入猜测的数字，电脑判断用户所猜密码的正确性，如果用户输入的数字和电脑产生的密码完全一致则输出“恭喜你猜中了！”，否则程序将输出用户和计算机产生数字之间不同的字符数。电脑产生的n位数字分别保存在数组num的n个下标变量num (1)、num (2)、…、num (n)中。
程序界面如图VB-1所示，用户在文本框Text1中输入数字长度，单击“确定长度”按钮（Command1）后，在文本框Text2中输入数字，单击“判定”按钮（Command2）后，程序在标签Label3中输出校验结果。
相应的程序如下，在程序划线处，填入适当的语句或表达式，把程序补充完整。

Dim num(1 To 25) As Integer
Private Sub Command1_Click()
Dim i As Integer，n As Integer
n = Val(Text1.Text)
For i = 1 To n                   '产生n位小于8的密码，每位一个非负整数，保存到数组num
num(i) = {#blank#}1{#/blank#}
Next i
End Sub
Private Sub Command2_Click()
Dim x(1 To 25) As Integer, i As Integer, s As Integer, n As Integer
n = Val(Text1.Text)
For i = 1 To n
     x(i) = {#blank#}2{#/blank#}    '把文本框中数字逐个分割出来并转化成数值
Next i
s = 0                               '变量s保存不同字符的总数
For i = 1 To n
If num(i) <> x(i) Then s = s + 1
Next i
If {#blank#}3{#/blank#} Then
Label3.Caption = "恭喜你猜中了！"
Else
      Label3.Caption = "你输入的数字共有" + Str(s) + "个字符不符"
End If
End Sub

某算法的部分流程图如图所示，执行这部分流程后，变量a，b的值分别是（）

某算法的部分流程图如图所示，执行这部分流程后，输出a，b的值分别是（）

有如下Visual Basic程序：

Private Sub Command1_Click()

Dim sum As Double, x As Double

sum = 0

n = 0

For i = 1 To 5

x = n / i

n = n + 1

sum = sum + x

End Sub

该程序通过For循环计算sum的值，下列表达式的值与sum相等的是（）

素数是指除了1和本身不能被任何数整除的数。请将3到100间的素数添加到LIST1中。

PRIVATE SUB FORMCLICK

FOR I = 3 TO {#blank#}1{#/blank#}

F=0

FOR J= 2 TO I-1

IF {#blank#}2{#/blank#} THEN

F=1

EXIT FOR

END IF

NEXT J

IF F=0 THEN {#blank#}3{#/blank#}

{#blank#}4{#/blank#}

END SUB

某 VB段程序如下：

Dim a(1 To 5) As Integer Randomize

s = 0

Do While s<5

t = Int(Rnd * 5 + 1) a(t) = a(t) + 1

If a(t) = 1 Then s = s + a(t)

Loop

已知数组a(1)到 a(5)的初值均为0，该段程序运行后，下列说法正确的是（）

相关试卷

公司介绍

服务介绍

帮助中心