- 二一组卷

题型：单选题题类：模拟题难易度：普通

浙江省名校信息技术仿真训练卷（一）

【加试题】有如下VB程序段：

Dim P As Integer, q As Integer, S As Integer, t As Integer

p=Val(Text1．Text)

t=0

For q=P+1 To 2*p

s=(p*q)Mod(q-p)

If s=0 Then

t=t+1

End If

Next q

Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（）

A、3 B、4 C、5 D、6

举一反三

a = a * b

b = a / b

a = a / b

Private Sub Command1_Click()

Dim a(1 To 5) As Integer

a(5)=Val(Text1.text)

For i=4 To 1 Step -1

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

Next i

Label1.caption=str(a(1))

End sub

在文本框Text1中输入“100”,单击命令按钮Command1后,标签Label1中显示的内容是（）

x = ①

t = 0: s = ""

Do While x <> 0

t = ②

x = x \ 10

Loop

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

相关试卷