题型:综合题 题类:常考题 难易度:困难
浙江省台州市书生中学2017-2018学年高二下学期信息技术起始考试卷
图1 | 图2 |
Private Sub Command1_Click()
Const code = "0123456789ABCDEF"
Dim s1 As String, s As String '变量s存储转换后的结果
Dim x As Long, R As Integer
If R >= 2 And R <= 16 Then
x = Val(Text1.Text)
s = ""
Do While x > 0
y = x Mod R
x =
s1 = Mid(code, y + 1, 1) '将余数转换为对应的字符
s =
Loop
List1.AddItem "(" & Text1.Text & ")10" & " →(" & s & ")" & R
End If
End Sub
试题篮