2. 计算机
  3. 阅读以下说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。 【说明】 本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果label控件名。

阅读以下说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。 【说明】 本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果label控件名。

admin2009-02-15  57
问题 阅读以下说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。
   【说明】
    本程序是一个可进行数制转换的应用程序，图1所示是其运行界面。txtDec为TextBox控件名，Lblkes为转换结果label控件名。

【程序代码】
   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
选项
答案(1)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求余法进行数制转换，所以答案如下所示。
转载请注明原文地址:https://www.kaotiyun.com/show/zIjZ777K
本试题收录于： 程序员下午应用技术考试题库软考初级分类
0

程序员下午应用技术考试

软考初级

相关试题推荐
随机试题
最新回复(0)