
① ② ③ ④
说明:text1.text、text2.text、text3.text分别表示a,b,max的值
Private Sub Command1_Click()
Dim a AS Integer, b AS Integer
Dim max AS Integer
a=
b=
If then
Else
End Sub
已知摄氏度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)
Dim a As Integer, b As Integer
a=6
b=8
S=1+a*b/2
Print S
Num1=4.1
Num2=5.8
age=(Num1+Num2)/2