试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

【bj】高中信息技术综合库——解析算法2

小李编写了一个程序,用以实现下列功能:在文本框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

举一反三
返回首页

试题篮