Question

会考VB题目

打开并修改考生文件夹下“VB”文件夹中的工程文件“number.vbp”，使其具有下列功能：在文本框Text1中一个十进制数，在文本框Text2中输入需转换数的进制，点击转换按钮，在文本框Text3中输出转换后的数字；点击“退出”按钮，关闭程序。程序运行界面如下图所示：

　

完成下列操作：

3．在注释①和②所在行中找出惟一的错误并改正，测试程序，使其实现上述功能。删除所有注释语句。程序调试正确后，生成“number.exe”，保存在“VB”文件夹中。 保存窗体文件和工程文件。

工程：
Private Sub Command1_Click()
Text3.Text = trans(Val(Text1.Text), Val(Text2.Text))
End Sub

Function trans(n As Long, b As Integer) As String
Dim hex As String
hex = "0123456789ABCDEF"
Do
r = n Mod n '①
n = n \ b
trans = Mid(hex, r + 1, 1) + trans
Loop Until n = 0 '②
End Function

Private Sub Command2_Click()
End
End Sub

问：怎么修改

Answer 1

Private Sub Command1_Click()

Text3.Text = trans(Val(Text1.Text), Val(Text2.Text))

End Sub

Function trans(n As Long, b As Integer) As String

Dim hex As String

hex = "0123456789ABCDEF"

 Do

  r = n Mod b 

  n = n \ b

  trans = Mid(hex, r + 1, 1) + trans

 Loop Until n = 0

End Function

Private Sub Command2_Click()

End

End Sub

Answer 2

r = n Mod n 改为 r=n Mod b