题目

小李编写了一个程序，用以实现下列功能：在文本框Text1中一个十进制数，在文本框Text2中输入需转换数的进制（小于等于16），点击转换按钮，在文本框Text3中输出转换后的数字；点击“退出”按钮，关闭程序。程序运行界面如下图所示： （1） 根据题目意思，应该在编辑界面将对象“command2”的属性改为“退出”。 （2） 为实现上述功能，请在划线处填入合适的代码。 Private Sub Command1_Click()     Dim x As Long     Dim y As Integer     x = Val(Text1.Text)     y =     Text3.Text = End Sub Function trans(n As Long, b As Integer) As String     Dim hex As String     hex = "0123456789ABCDEF"     Do while n<>0         r = n Mod b         n = n \ b         trans = + trans     Loop End Function Private Sub Command2_Click() End Sub 答案： 【1】caption 【1】Val(Text2.Text)【2】trans(xy)【3】Mid(hex,r+ 1,1)

查看本题答案和解析