●试题八

阅读以下说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果labe1控件名。

【程序代码】

Option Explicit

Private Function convert(pintDec As Intege，pintS As Integer)As String

Dim intCt As Integer，intR As Integer

Dim strCov As String，strRes As String

intR=pintDec Mod pintS

Do While (1)

strCov=strCov ＆ Str(intR)

(2)

intR=pintDec Mod pintS

Loop

For intCt= (3) To 1 Step-1

strRes=strRes ＆ Mid(strCov，intCt，1)

Next intCt

convert=strRes

End Function

Private Sub cmdQuit_Click()′退出

Unload Me

End Sub

Private Sub optBin_Click()′二进制

lblRes．Caption="转换结果："＆ (4)

End Sub

Private Sub optHex_Click()′十六进制

lblRes．Caption="转换结果："＆ (5)

End Sub

Private Sub optOct_Click()′八进制

lblRes．Caption="转换结果："＆Oct(Val(txtDe

C．Text))

End Sub