搜题请搜索小程序“爱下问搜题”
问题

闻名世界的都江堰水利工程的主要作用是（   ）

A．防洪排水

B．防洪蓄水

C．防洪灌溉

D．防洪抗旱

答案

C

题目分析：都江堰是建设于古代并使用至今的大型防洪灌溉水利工程。 修建都江堰之前成都平原因为岷江的水患，是一个自然灾害十分严重的地方。李冰上任后修建都江堰，根治了岷江水患，发展川西农业，造福成都平原，为秦国统一中国创造经济基础。

填空题

企业的净利润归______所有是企业的基本制度，也是企业所有者投资于企业的根本动力所在。
查看答案
填空题

【说明】
本应用程序是一个小写数字转换成大写格式的转换器，其运行窗口如图5所示。


窗口中有两个标签(lblNumber和lblChinese)、两个文本框(txtNnmber和txtChinese)和一个命令按钮(cmdChange)。当单击按钮cmdChange时，将文本框txtNumber中数字转换成中文大写，并显示在文本框txtChinese中。例如，在文本框txtNumber输入0076845，单击cmdChange按钮，将在文本框txtChinese中显示“柒万陆仟捌佰肆拾伍”。
程序中调用的函数CChinse(Strdigit As String)的功能是先删除字符串的所有前导0，再调用函数Change(Strdigit As String)，将数字字符串Strdigit转换成中文大写格式。
为了防止用户在文本框txtNumber输入非数字形式的字符，程序将以空字符代替所输入的非数字有形字符。
【程序】
Private Function Transfer(Strdigit As String)As String
′完成小写向大写的转换，这段代码省略
End Function
Private Function CChinese(Strdigit As String)As String
Dim intLen,intCounter As Integer
intLen = Len (Strdigit)
If intLen＞0 Then
intcounter = 0
Do ’过滤数字串Strdigit的前导0
intcounter = intcounter + 1
Loop Until Mid(Strdigit, (1) )
intLen = (2)
Strdigit = (3) (Strdigit,intLen)
CChinese = Transfer(Strdigit)
End If
End Function
Private Sub cmdChange_Click( )
txtChinese.Text=CChinese( (4) ) ’调用Cchinese函数
End Sub
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
Select Case KeyAscii ’根据输入字符的ASCII码的值进行判断
Case KeyAscii＜32 ’保留输入的控制字符
Case 48 To 57’保留输入的数字字符
Case Else ’其他情况以空字符代替
(5) =0
End Select
End Sub
查看答案