组卷题库 > 高中信息技术试卷库
试题详情
编写一个读数小程序。在文本框1中输入一个10000以内的正整数,点击“读数”按钮,在文本框2中输出该数字的中文阅读,程序运行界面如图所示。实现该功能的VB程序段如下:

Const SN = "〇一二三四五六七八九十百千"

Dim s1 As String, s2 As String, i As Integer

s1 = Text1.Text: s2 = "": i = 1

Do While i < Len(s1)

    n1 = Val(Mid(s1, i, 1))

    n2 = Val(Mid(s1, i + 1, 1))

    If n1 <> 0 Then        

    If n1 = 0 And n2 <> 0 Then         

    i = i + 1

Loop

n1 = Val(Mid(s1, i, 1))

If n1 <> 0 Then         

Text2.Text = s2

上述程序方框处可选语句为:

①s2 = s2 & Mid(SN, n1 + 1, 1) & Mid(SN, Len(s1) - i + 10, 1)

②s2 = s2 & Mid(SN, 1, 1)

③s2 = s2 & Mid(SN, n1 + 1, 1)

则(1)、(2)、(3)处语句依次是(   )

A、①②③
B、②①③
C、②③①
D、③②①
知识点
参考答案
采纳过本试题的试卷
教育网站链接