实验7 编写函数过程实现数制转换

实验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

实验思考：

在本实验基础上，实现各种进制之间的相互转换。