【根据宁波效实中学2012学年第一学期高一信息技术期末试卷改编】将一个十进制正整数x转换成十六进制数的方法和转换成二进制类似，反复除16取余法，它的算法如下第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边; 第三步：求出x被除16的商x1; 第四...

题型：综合题题类：模拟题难易度：困难

浙江省杭州市2015年高考信息技术模拟卷3

【根据宁波效实中学2012学年第一学期高一信息技术期末试卷改编】将一个十进制正整数x转换成十六进制数的方法和转换成二进制类似，反复除16取余法，它的算法如下

第一步：x被除16取余数r1，r1是所求的十六进制数的一个数（第一次就是个位数）；

第二步：r1转换成十六进制数的一个基数并转换成字符，追加到十六进制数S的左边;

第三步：求出x被除16的商x1;

第四步：对x1重复（1）、（2）、（3）过程，直至商为0；

第五步：最后的S即为所求的十六进制数；

下列Visual Basic程序的功能是将一个十进制正整数x转换成十六进制数。界面如图所示，在文本框Text1中输入一个十进制数制，单击“十进制转十六进制按钮”（Command1）后，在文本框Text2中输出转换的结果。相应的Visual Basic程序如下：

Private Sub Command1_Click()

Dim s As String, r As Integer

dec = val(Text1.Text) ’dec得到一个十进制整数，例如：255；

base = 16 ’base表示16

s = "" ’s变量存放要转换到的十六进制整数；

Do While dec <> 0

r = ①

If r >= 10 Then ’如果base>10进制，r可能>10；

s = Chr(65 + (r - 10)) + s ’Chr (65)="A", 16进制数A对应10；

          Else                            ’Chr(66)="B", 16进制数B对应11；
             s = Str(r) + s      ‘余数r<10时，十进制数和十六进制基数相同；
          End If ‘Chr (65 +( r - 10))或str(r)在s左边，实现了反次序输出；
          dec =     ②
    Loop
   Text2.Text = s
End Sub

（1）、在 ① 应填入（）

A、base Mod dec B、dec / base C、dec Mod base D、dec \ base

（2）、在 ② 应填入（）

A、base Mod dec B、dec / base C、dec Mod base D、dec \ base

举一反三

小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则得分加10分，直至完成10题测试。VB程序如下，但加下划线处代码有错，请改正。

Dim n,s As Integer 'n为试题计数器,s为得分

Dim a, b As Integer 'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法