充值活动已开启,快来参与吧 关闭充值活动
当前位置: 高中信息技术 / 算法与程序设计 / 算法及程序语言基础 / 算法的控制结构
  • 1. 数制转换。将一个K进制(k<=10)数x转换成十进制数可采用如下方法:主要方法是从右向左,依次取数x的各位数字,分别计算出该数从右边数起的第i位数字与k(i-1)的积,再将其累加,直到所有的数字取完为止。例如,将五进制数1231转换成十进制数的方法如下:

    下列Visual Basic程序的功能是将K进制(k<=10)数x转换成十进制数。界面如图所示,在文本框Text1中输入数制k,在文本框Text2中输入数x,单击"转换"按钮(Command1)后,在标签Label4中输出转换的结果。

     

    解决此问题的算法流程图如图所示,相应的Visual Basic程序如下:

    Private Sub Command1_Click()

    Dim b As Long, i As Integer, k As Integer, x As Long, t As Integer

    b = 0: i = 1

    k = Val(Text1.Text)

    x = Val(Text2.Text)

    t = x Mod 10

        Do While      ①    

            b =       ②     

            x = x \ 10

            t = x Mod 10

            i = i + 1

        Loop

    Label4.Caption = Str(k) + "进制数" + Text2.text + "转换成十制数为" + Str(b)

    End Sub

    在程序①和②划线处,填入适当的语句或表达式,把程序补充完整:

    1. (1) 程序中①划线处应填入
    2. (2) 程序中②划线处应填入