试题 试卷
题型:单选题 题类:常考题 难易度:普通
浙江省东阳中学2018-2019学年高一下学期信息技术6月月考试卷
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
Next i
End Sub
该程序计算了一个表达式的值,这个表达式是( )
uname = Text1.Text '输入用户名
psd = Text2.Text '输入密码
vcode = Val(Text3.Text) '输入验证码
If vcode <> Val(Label3.Caption) Then
MsgBox “ ” ' Label3显示的是随机验证码
ElseIf uname <> "admin" Or psd <> "123456" Then
MsgBox “ ”
Else
方框中正确的语句是( )。
Dim s As Integer, j As Integer
s = 0
For j = 1 To 10
If j Mod 2 <> 0 Then
s = s + j
End If
Next j
Label1.Caption = Str(s)
实现上述功能的VB程序如下,请回答下列问题:
执行这部分流程后,变量x,y的值分别是( )
For i=1 To 4
s=””
For j=1 To 7
If Then
s=s+“*“
s=s+” ” ‘双引号内为1个空格
List1.AddItem s
则方框中的语句是 ( )
试题篮