算法与程序设计——进制转换问题.docVIP

深化课程改革 打造高效课堂 PAGE 2 不是每一次的努力都能取得成功，但每一次成功都来自不懈的努力。 楠江中学 高三信息技术 学思案 序号 第 2 号 编写人 何红霞 答题人 课题 算法与程序设计——进制转换问题 时 间 年 月 日 前知 复习 十进制转二进制、十六进制 2.将十进制数n转化成十六进制数并存储在字符串s中。k= 2.将十进制数n转化成十六进制数并存储在字符串s中。 k=”0123456789ABCDEF” s=”” Do while r= s= n= Loop 1.将十进制数n转化成二进制数并存储在字符串s中。 S=” ” Do While n0 r= ‘r表示余数 s= str(r)+s n= Loop 二、二进制、十六进制转十进制 十六进制数存储在字符串变量s中。使用“ 十六进制数存储在字符串变量s中。使用“累乘相加法”将十六进制转化为十进制。结果存储在变量ans中。 S=”2A” Ans=0:n=len(s) For i=1 to n ch= If ch=”A” and ch=”Z”then x= Else x= End if ans= Next i 1.二进制数存储在字符串变量s中。使用“按权相加法”将二进制转化为十进制。结果存储在变量ans中。 S=”1001 ” ans=0 n=len(s) For i=1 to n x= ‘x表示s每个位置上的数 ans= Next i 问题 探究 典例探究一：小林为了将十进制数转化为K进制数（k介于2到16之间），设计如下界面程序：在文本框text1中输入一个十进制数，在文本框text2中输入整数k，单击“运行”按钮，程序将十进制转化为k进制，并在标签Label2中输出结果。请回答下列问题： 在设计程序界面时，需将Text1中的内容清空，应修改 属性。 实现上述功能的VB程序如下。请在划线处填入相应代码。 Private Sub Command1_Click() Dim d, k, r As Integer Dim s, c As String d = Val(Text1.Text) k = Val(Text2.Text) s = Do While r = If r = 10 Then c = Mid(ABCDEF, , 1) Else c = Str(r) End If s = c + s d = Loop Label2.Caption = 结果为 + s End Sub （3）运行该程序，在文本框text1中输入“38”，在文本框text2中输入“2”，单击“运行”按钮，则“Label2”中显示的内容是 。 典例探究二：进制转换。下面程序的功能是：将一个k进制（k=10）数x转换成十进制数。程序运行界面如图所示，在文本框Text1中输入数制k，在文本框text2中输入数x，单击“转换”按钮后，在标签label1中输出转换的结果。 为实现上述功能的程序代码如下： 根据代码可知，“转换”按钮的对象名称为 。 实现上述功能的VB程序如下。请在划线处填入相应代码。 Private Sub Cmd1_Click() Dim s As Long, k, i As Integer Dim x As String k = Val(Text1.Text) x = Text2.Text s = 0: i = 1 Do While t = Val(Mid(x, i, 1)) s = i = i + 1 Loop Label3.Caption = End Sub （3）若在Text1中输入“2”，在text2中输入“101101”，则label3中显示的是 。 达标 检测 1.编写“二进制加法程序”。程序运行时，在文本框text1和文本框text2分别输入两个二进制数，单击按钮command1后在文本框text3上输出两个二进制相加的结果。程序运行如图所示。 观察代码，触发代码执行的事件名是 。 为实现上述功能，请在划线处填入相应的代码。 Private Sub Comman