更多"程序运行后，若为“甲队”且成绩大于80分，则在窗体上显示“表现优良”，"的相关试题:
[填空题]程序运行后，若为“甲队”且成绩大于80分，则在窗体上显示“表现优良”，否则显示“表现普通”。
Private Sub Form_Activate（ ）
Dim team1 As String
Dim fen As Integer
team 1="乙队"
fen=86
Print
Print"球队=；"team1
Print"成绩=；"fen
If team1="甲队"Then
If fen＞=80 Then
Print"表现优良!"
Else
______
End If
Else
Print"表现普通"!
End If
End Sub
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上输出的结果是( )。
Private Sub Command1_Click（ ）
Dim Y As Integer，I As Integer
Dim A(7)As Integer
Y=18：I=0
Do
A(I)=Y Mod 2
I=I+1
Y=Y/2
Loop Until Y＜1
For j=I-1 To 0 Step-1
Print A(j)；
Next j
End Sub
A. 1 0 0 0
B. 1 0 0 1 0
C. 0 0 1 1 0
D. 1 0 1 0 0
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click（ ）
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Option Base 1
Private Sub Command1_Click（ ）
Dim i As Integer
Dim x(3，3)As Integer
For i=1 To 3
For j=1 To 3
x(i,j)=(i-1)*3+j
Next j
Next i
For i=1 To 3
Print x(i,4-i)；
Next i
End Sub
A. 1 5 9
B. 1 4 7
C. 3 5 7
D. 3 6 9
[单项选择]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click（ ） Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A. 32
B. 28
C. 30
D. 36
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将该文本清除；重复上述过程5次。
Option Explicit
Private ______
Dim k As Integer
For k=1 To 100
If k Mod 20 Then
_______
Else
Text1.Text=" "
End If
Print“程序运行完毕，可再双击窗体”
End Sub
[填空题]程序是一个窗体双击事件代码，窗体的名称是Mywindow。窗体上有一个名为Text1的文本框，用来显示文本。
程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程5次。
Option Explicit
Private 【12】
Dim k As Integer
For k=1 to 100
If k Mod 20 Then
【13】
Else
Text1.Text=""
End lf
Print“程序运行完毕，可再双击窗体”
End Sub
[单项选择]窗体上有一个名为List1的列表框，程序执行时在窗体上单击，输出的结果是( )。
Priate Sub Form_Click（ ）
For i=0 To List1．ListCount-1
If i Mod 2=0 Then
Print List1．List(i)；
End If
Next i
End Sub
Private Sub Form_Load（ ）
List1．AddItem"中国"
List1．AddItem"日本"
List1．AddItem"韩国"
List1．AddItem"新加坡"
List1．AddItem"香港"
End Sub
A. 中国韩国
B. 日本新加坡
C. 中国韩国香港
D. 中国日本韩国新加坡香港
[单项选择]甲队人数是乙队人数的2倍，从甲队调12人到乙队，这时甲队人数比乙队人数的一半多3人，求甲队原来的人数为( )。
A. 24
B. 20
C. 22
D. 28
[单项选择]窗体上有一个名称为Text1的文本框，一个名称为Command1的命令按钮。窗体文件的程序 如下： Private Type x a As Integer b As Integer End Type Private Sub Command1_Click（ ） Dim y As x y.a=InputBox("") If y.a/2=y.a/2 Then y.b=y.a * y.a Else y.b=Fix(y.a/2) End If Text1.Text=y.b End Sub 对以上程序，下列叙述中错误的是( )。
A. x是用户定义的类型
B. InputBox函数弹出的对话框中没有提示信息
C. 若输入的是偶数，b的值为该偶数的平方
D. Fix(a/2)把a/2的小数部分四舍五入，转换为整数返回
