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

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

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

第四步：对x1重复第一、二、三步，直至商为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=(1)     

     If r >=10 Then       ‘如果base>10,r可能>10

      s=Chr(65+(r-10))+s     ‘Chr(65)=“A”,16进制数A对应10;

     Else

      s=Str(r)+s      ‘余数r<10时,十进制数和十六进制基数相同

     End If      ‘Chr(65+( r-10))或str(r)在s左边,实现了反次序输出

     dec=(2)     

  Loop

 Text2.Text=s

End Sub

在(1)处应填入{#blank#}1{#/blank#} ， 在(2)处应填入{#blank#}2{#/blank#}。

A.base Mod dec   B.dec/base

C.dec Mod base   D.dec\base

x=-4.2

y=Abs(Int(x))

If x＞0 And x＜5 Then

 y=y+1

Else

 y=y-1

End If

该程序段运行后，y的值为（  ）

点击“转换”按钮Command1，则在文本框Text2中显示该金额的大写，程序运行界面如下图所示:

y=0

n=Len(Text 1．Text)

For i=1To n

    c=Mid(Text 1.Text，i，1)

    If c>=“0”And c<=“9”Then

        x=Val(c) ：a(x) =a(x) + 1

    End If

Next i

For i= 0 To 9

    If a(i) >0Then y=y+ 1

Next i

Label 1．Caption=Str(y)

a数组各元素的初值为0，程序运行时，在文本框Text 1中输入内容“pi=3．1415926535”，单击按钮Command 1后，标签Label 1中显示的内容是（  ）