下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是 Private Sub Command1_click() Dim s as integer,I as integer S=0 For i=1 to 20 step 3 s=s+(-1)i*i Next i Label1.caption=str(i) Label2.caption=str...

题型：填空题题类：模拟题难易度：普通

浙江省杭州市2015年高考模拟命题比赛信息技术(6)

下列VB程序运行时，单击命令按钮Command1后，标签框Label2中显示的内容是

Private Sub Command1_click()

Dim s as integer,I as integer

S=0

For i=1 to 20 step 3

s=s+(-1)^i*i

Next i

Label1.caption=str(i)

Label2.caption=str(s)

End Sub

举一反三

Private sub Command1_Click()

Dim a As Single

Dim py As String

a= Val (Text1) （1）

If a>0 Then py =”正数”

If a=0 Then py=”零”

If a<0 Then py=”负数”

Label3.Caption=a（2）

End Sub

S=Text1.Te×t

For i=1 To Len(s)

c=Mid(s，i，1)

If c>=“0”And c<=“9”Then

m=m+1

Elself c>=“a”And c<=“z”Then

n=n+1

Else

t=t+1

End If

Next i

Label1．Caption：Str(t)

在文本框Text1输入“as674ER29，86Gu”。(不包括双引号)，执行程序后，标签Label1显示：（）

实现上述功能的VB程序如下，请回答下列问题:

相关试卷