题型：综合题 题类：常考题 难易度：困难
浙教版高一信息技术 专题五：VB程序设计
Private Sub Command1_Click()
Dim a As String,s As String
Dim r As Integer,x As Integer
x=Val(Text1.Text)
s=""
Do While x>0
x=x\16
If r>9 Then
a=Chr(r+55)
Else
a=Str(r)
End If
s=a+s
Text2.Text=s
End Sub
试题篮
