填空题

有下面一个程序段，从文本框中输人数据，如果该数据满足条件“除以4余1，除以5余 2”，则输出，否则，将焦点定位在文本框中，并清除文本框的内容。
Private Sub Commandl_Click()
x=Val(Text1.Text)
If [9] Then
PrintX
Else
Text1.Text=""
[10]
End If
End Sub

【参考答案】

Tex(1.SetFocus
<上一题 目录 下一题>
热门 试题

填空题
下面运行程序后，单击命令按钮，输出的结果是______。Private Sub Commandl_clck()Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2#Fori=1 To 4a(i)=iNextiFor i=3 To 6b(i)=iNextis1=YAS(a)S2=YAS(b)Printt s1= ；S1 S2= ；s2End SubFunctionYAS(a()AsInteger)Dimt#，i%t=1For i=LBound(a)ToUBound(a)t=t*a(i)NextiYAS=tEnd Funtoon
填空题
下列程序段的输出结果为______。Dim S1(5)As Integer,S2(5)As Integer,S3(5)As IntegerN=4ForI=1 To NS1(I)=IL=N+i-IS2(I)=LNextIS3(5)=0ForK=1 To NS3(K)=S1(K)*S2(K)S3(5)=S3(5)+S3(K)NextKPrintS1(3)=S1(5)；S1(2)PrintS2(4)=S3(1)；S3(5)
相关试题