试题 试卷
题型:填空题 题类:常考题 难易度:普通
浙江省台州中学2014-2015学年高一下学期信息技术期中考试试卷
请将实现以上功能的程序补充完整:
Private Sub Command1_Click( )
x= Val (Text1.text)
If x>0 Then
ElseIf Then
y = 0
ElseIf x < 0 Then
y = Abs(x)
End If
End Sub
Private Sub command1_click()
Dim n As Integer,x As Integer
n=Val(Text1.Text)
x=n Mod 10
n=x*1000+n\10
Text1.Text=Str(n)
For i= 1 To 6
a(i)=i+1
Next i
该程序段运行后数组元素a(3)的值是:( )
For i= 1 To 8
a(i) =Int(Rnd*2)
sum= 0
For i=1 To 8 Step 3
For j=i To 8
a(j)=1-a(j)
Next j
sum=sum+a(i)
Text 1.Text=Str(sum)
执行该程序段后,文本框Text 1中显示的内容不可能是( )
试题篮