【说明】
本程序是一个可进行数制转换的应用程序，图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

胡 * * 同志在“七一”讲话中指出：十六大提出的一个战略举措是（）。

A．兴起全面建设小康社会新高潮

B．兴起学习贯彻“三个代表”重要思想新高潮

C．兴起学习贯彻“依法治国”方略新高潮

D．兴起全面推动改革开放和现代化建设新高潮