题目

【加试题】有如下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 答案：B

查看本题答案和解析