试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:普通

浙江省湖州市菱湖中学2019届高三上学期信息技术12月月考试卷

编写VB程序代码,实现如下功能:在文本框Text1中输入金额(整数)后,点击“转换”

按钮Command1,则在文本框Text2中显示该金额的大写,程序运行界面如下图所示:

(1)、要使窗体标题上显示的文本改为“人民币大小写”,可在其属性窗口中将属性的属性值改为“人民币大小写”。
(2)、为了实现以上程序功能,使程序正常运行,请完善以下两处代码。

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

(3)、由上述算法可知,若在文本框Text1中输入“20”,则文本框Text3显示的结果为
举一反三
返回首页

试题篮