问题详情

下列程序 Private Sub form_Click() score=Int(Rnd * 10)+80 Select Case score Case Is＜60:a$＝"F" Case 60 To 69:a$＝"D" Case 70 To 79:a$＝"C" Case 80 To 89:a$="B" Case Else:a$＝"A" End Select Print a$ End Sub 运行时输出的结果是

A、F

B、D

C、C

D、B

时间：2022-01-04 10:03 关键词：

答案解析

D
解析：本题计算score用的表达式是Int(Rnd*10)+80，由于Rnd产生0到1之间的随机数，该随机数含。但不含1，乘10取整后其值是。到9之间的整数，加80后值是80到89之间的整数，多分支入口select Case score，测试表达式是score，从上到下检查Case中的表达式列表是否满足条件，本题中Case 80 To 89表达式满足条件，因此执行a $＝"B"，a$的值执行后为字符B，退出多分支后，输出字符B。

相关问题

函数Int(Rnd*11+10)的值的范围是_______。
以下程序的运行结果是( )void sub (int x,int y,int z){z=y-x;}main(){int a,b,c;sub(10,5,&a);sub(7,a,&b);sub(a,b,&c);printf(%4d,%4d,%4d,a,b,c);}
有如下程序： Private Sub Form_Click() Dim i As Integer, Sum As Integer sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为______。
有如下程序： Private Sub Form_Click( ) Dim i As Integer, Sum As Integer Sum = 0 For i = 2 To 10 If i Mod 2=0 And i Mod 3＜＞0 Then Sum = Sum + i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为
有如下程序： Private Sub Form_Click() Dim i As Integer，Sum As Integer Sum=0 For i=2 To 10 If i Mod 2＜＞0 And i Mod 3=0 Then Sum=Sum+i End If Next Print Sum End Sub 程序运行后，单击窗体，输出结果为