1. 有如下 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)

该程序段运行时,在文本框T extl中输入8 , 则在标签Labell中显示的内容是(  )

A. 3 B. 4 C. 5 D. 6
【考点】
解析算法及程序实现;
【答案】

您现在未登录,无法查看试题答案与解析。 登录
单选题 困难
能力提升
变式训练
拓展培优
真题演练
换一批