- 二一组卷

题型：填空题题类：模拟题难易度：普通

浙江省普通高中信息技术学业水平冲刺预测卷（一）

编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框Text1输入一个二进制数，单击“转换”按钮 Commandl，将二进制数转换为十六进制数并在文本框Text2中显示。程序运行界面如图所示。

（1）、设计如图所示的程序界面，至少要使用个类（填数字）。

（2）、实现上述功能的VB程序如下，请在画线处填入合适的代码。

Private Sub Command1_Click( )

Dim s1 As String, s2 As String

Dim i As Integer, x As Integer

Const code=“0123456789ABCDEF”

S1=Text1,Text：s2=“”

Do While Len (s1) Mod 4<>0

S1=“0”+s1

Do While i < Len(s1)

x= x*2+Val (Mid (s, i, 1))

i=i+1

If ① Then

s2=s2+ Mid (code, x+1,1）

②

End If

Loop

Text2 Text= s2

End Sub

① ②

（3）、若文本框Text1中输入的内容为“101101”，单击“转换”按钮后，文本框Text2中显示的内容是。

举一反三

Private Sub Command1_Click()

Dim s As Integer

Dim n As Integer

Dim i As Integer

n = Val(Text1.Text)

s = 1

For i = 2 To n

s = s * i

Next i

Label1.Caption = Str(n) + "!=" + Str(s)

End Sub

当输入a，b的值分别为5，7，该算法的输出结果为（）

相关试卷