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

    1. (1) 若要将按钮上的文本修改为“转换”,则应修改Command1对象的 属性
    2. (2) 为了实现以上程序功能,使程序正常运行,请完善以下两处代码。

      Private Sub Command1_Click()

      Dim dx As String, dw As String

      Dim st As String, ch As Integer

      Dim i ,n As Integer

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

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

      st = Text1.Text : n = Len(st)

      If  n > 9 Then

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

      Else

          For i = 1 To n          

             ch =    ①   

             s = s + Mid(dx, ch + 1, 1) + Mid(dw,  ②   , 1)

          Next i

          Text2.Text = s + "整"

      End If

      End Sub

      以上程序段运行时,为了实现上述功能,划线处应填入的代码分别为:

      ; ②

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

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