题型:综合题 题类:常考题 难易度:困难
浙江省温州新力量联盟2020-2021学年高二上学期信息技术期末联考试卷
Private Sub Judge_Click( )
Dim x As Integer, i As Integer
Dim y As Long, flag As Boolean
flag = False
x = Val(Text1.Text)
i = 10
Label2.Caption = "该数的平方是:" + Str(y)
Do While y \ i > 0 And flag = False
t1 = y \ i
t2 = y Mod i
If Then
flag = True
Label3.Caption = Str(t1) + "+" + Str(t2) + " = " + Str(x)"
End If
i =
Loop
If Not flag Then Label3.Caption = "该数不是卡普利加数"
End Sub
a=[20,32,56,12,48] maxx=a[0] for k in ①: if maxx<k: ② print( ③ ) |
试题篮