问题 单项选择题 共用题干题

余女士,53岁,已婚,出现尿频、尿急、尿痛2d。昨晚起寒战、高热,自觉下腹两侧剧痛,有恶心,无呕吐。白带呈脓性,有臭味。外阴烧灼痛。

如何确定治愈标准()。

A.治疗后2周复查分泌物,以后每月复查1次,连续3次阴性

B.治疗后10d复查分泌物,以后每月复查1次,连续3次阴性

C.治疗后7d复查分泌物,以后每月复查1次,连续3次阴性

D.治疗后1个月复查分泌物,以后每月复查1次,连续3次阴性

E.治疗后1个月复查分泌物,阴性即可

答案

参考答案: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