程序运行后,若为“甲队”且成绩大于80分,则在窗体上显示“表现优良”,否则显示“表现普通”。Private Sub Form_Activate()Dim team1 As StringDim fen As Integerteam 1="乙队"fen=86PrintPrint"球队=;"team1Print"成绩=;"fenIf team1="甲队"ThenIf fen>=80 ThenPrint"表现优良!"Else______End IfElsePrint"表现普通"!End IfEnd Sub

程序运行后,若为“甲队”且成绩大于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


相关考题:

程序运行后,要使窗体上仅显示字符,且此字符可被用户修改,可用控件( )A.LabelB.TextBoxC.CommandbuttonD.Image

设有如下程序:程序运行后,单击窗体,则在窗体上显示的是( )。A. 4 3 2 1B. 5 4 3 2C. 6 5 4 3D. 7 6 5 4

在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:程序运行后,如果单击命令按钮,则在面体上显示的内容是( )。

下面程序的运行结果是在窗体中显示的:运行后窗体上显示的是______。

在窗体上画一个命令按钮,名称为Command1,然后编写如下程序:程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。A.B.HC.D.

运行下列程序:Private Sub Form_Click( )a$ = 2b$ = 1Call abcd(a, b, c$, d$)Print c; dEnd SubPrivate Sub abcd(x$, y$, z$, s$)z = x + ys = x - yEnd Sub单击窗体后,则在窗体上显示的结果是( )。A.3 1B.1 3C.211D.显示出错信息

运行下列程序:Private Sub form_Click( )x = 8: y = 2Call fun1((x), y)Print x, yEnd SubPrivate Sub fun1(x, y)s = xx = s / yy = s Mod yEnd Sub单击窗体后,则在窗体上显示的结果是( )。A.4 2B.8 2C.8 0D.2 4

运行下列程序:Private Sub Form_Click( )For i = 1 To 20If fun1(i) Thens = s + 1End IfNext iPrint sEnd SubPrivate Function fun1(y) As BooleanIf y Mod 2 0 Thenfun1 = FalseElsefun1 = TrueEnd IfEnd Function单击窗体后,则在窗体上显示的结果是( )。A.110B.10C.0D.20

设有如下程序该程序运行后,单击窗体,则在窗体上显示的内容是:a=( )和b=( )。