x=10
If x>=10 Then
Value = 5*x
Else
Value=3*x+10
End If
n=0
for i in range(1, 30) :
if i%5==0:
n=n+1
print (n)
已知摄氏度C转换到华氏度F的公式是
,设计界面设计如下,请将打乱的代码进行排序。

Private Sub Command1_Click()
End Sub
打乱的代码如下:
A. F=9/5*C+32
B. Text2.Text= str(F)
C. Dim C, F As Single
D. C = Val(Text1.Text)
m=19
if m>=30 or m<20:
print(m)
要求,学生成绩由文本框(Text1)输入,结果显示在文本框(Text2)中。评分标准如下:
90≤成绩≤100 A
80≤成绩<90 B
60≤成绩<80 C
0≤成绩<60 E
其余成绩 无效 文本框(Text2)中显示“输入有误,请检查输入的成绩”

B .
C .
D .
Private Sub Command1_ Click()
a=Text2. Text '总评分
If a <75 Then
Label4. Caption ="★ 继续努力!"
Else
If a>90 Then
Label4. Caption ="★★★ 很棒!"
Else
Label4. Caption = "★★ 加油!"
End If
End If
End Sub
Num=23
result=Num%3+5
print(result)
a=4
b=6
avg=(a+b)/3
print(avg)