题库 高中信息

题干

编写 VB 程序,实现如下功能:在文本框 Text1 中输入十进制数,文本框 Text2 中输入待转换进 制(范围 2~16),单击“转换”按钮 Command1,在列表框 List1 中输出该整数对应的进制转换结 果,运行效果如下图所示。

(1)要修改窗体中各对象字体为粗体,可选中对象后在属性窗口中设置________________属性。
(2)请在划线处填入合适的代码。
Private Sub Command1_Click
Const code = "0123456789ABCDEF" Dim s As String
Dim x As Long, r As Integer r = Val(Text2.Text)
If _____Then
x = Val(Text1.Text)
s = ""
Do While x > 0 y = x Mod r
x = x \ r
s =___
Loop
List1.AddItem "(" & Text1.Text & ")10" & "=(" & s & ")" & r
Else
MsgBox "请重新输入数据" End If
End Sub
(3)重新运行程序,若在文本框 Text1 中输入“255”,文本框 Text2 中输入“8”,单击“转换” 按钮后,列表框 List1 中显示的内容是_____。
上一题 下一题 0.99难度 填空题 更新时间:2019-03-30 05:21:31

答案(点此获取答案解析)

相关知识点