实验7 编写函数过程实现数制转换
实验目的:
1、掌握通用子过程的定义和调用方法；
2、掌握函数过程的定义和调用方法；
3、了解传值和传地址的区别。

实验内容:
1、实验要求
编写并调用函数或子过程，能实现不同进制数据之间的相互转换。

2、分析设计
从键盘输入待转换的数据，将转换结果显示在文本框中。

5、源代码
Dim x%, y%
Private Sub Command1_Click()
x = Val(Text1)
If Text1 = "" Then
MsgBox "请先输入一个十进制数！"
Text1.SetFocus
Exit Sub
End If
If Option1 = False And Option2 = False And Option3 = False Then MsgBox "请选择进制"
Exit Sub
End If
If Option1.Value = True Then
y = 2
ElseIf Option2.Value = True Then
y = 8
ElseIf Option3.Value = True Then
y = 16
End If
Text2 = convert(x, y)
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2 = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
End Sub
Public Function convert(ByVal a%, ByVal b%) As String Dim str$, temp%
str = ""
Do While a <> 0
temp = a Mod b
a = a \ b
If temp >= 10 Then
str = Chr(temp - 10 + 65) & str
Else
str = temp & str
End If
Loop
convert = str
End Function
实验思考：
在本实验基础上，实现各种进制之间的相互转换。