程序运行后,若为“甲队”且成绩大于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"球队=;"team1
Print"成绩=;"fen
If team1="甲队"Then
If fen>=80 Then
Print"表现优良!"
Else
______
End If
Else
Print"表现普通"!
End If
End Sub
相关考题:
运行下列程序: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=( )。