当前位置: 高中信息技术 / 综合题
  • 1. (2017高二上·宁波期中) 编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:

    1. (1) 为了实现以上程序功能,使程序正常运行,请完善以下两处代码。

      Private Sub Command1_Click()

      Dim dx As String, dw As String

      Dim s As String, c As String

      Dim ch As String

      Dim i As Integer

      dx = "零壹贰叁肆伍陆柒捌玖拾"

      dw = "亿仟佰拾萬仟佰拾元"

      s = Text1.Text                                                   

      If  Len(s) > 9

          Text2.Text = "输入的数据超出所能转换的范围"

      Else

          For i = 1 To Len(s)          

             ch =  

             c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)

          Next i

          Text2.Text = c + "整"

      End If

      End Sub

    2. (2) 由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为

微信扫码预览、分享更方便