【说明】 本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果label控件名。
图 1 【程序代码】 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() ′二进制 IblRes.Caption="转换结果:"& (4) End Sub Private Sub optHex_Click() ′十六进制 IblRes.Caption="转换结果:"& (5) End Sub Private Sub optOct_Click() ′八进制 IblRes.Caption="转换结果:"&Oct(Val(txtDec.Text)) End Sub
参考答案：pintDec＞0 (2) pintDec = pintDec \pintS
解析：(3) len(strCov) (4) convert(val(txtDec.Text),2) (5) Hex(Val(txtDec.Text)) VB中，十六进制转换和八进制转换都有相应的函数，分别是Hex()和Oct()，而二进制转换没有，故程序中用了一个自定义函数 convert (pintDec，pintS)，功能是将十进制数pintDec转换成pintS进制数，convert函数中用除pintS求余法进行数制转换，所以答案如下所示。