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

下列各句中，没有语病的一句是

A．能在奥运会期间举办“北京2008武术比赛”，让全世界人民感受中华武术的博大精深，中国武协将之归功于武术界同仁齐心协力的结果。

B．近几年来，我国领海不断被侵扰，为了应对复杂多变的海上变化，中国海监局调整了工作规划，加大了海上巡航密度和执法装备的质量。

C．在朱清时看来，落后的机制是中国大学的教学质量不能提高的重要原因，只有把学校推向市场，才能提高大学的办学积极性，进而提高教学质量。

D．为切实挽回干旱带来的损失，提高抗旱保收效果，2011年山东干旱比较严重的地区，通过调整农业结构来规避旱灾。

答案

答案：C

A项句式杂糅,归功于……的结果；B搭配不当，“加大……密度”可以，但不能“加大”“质量”；D.成分残缺，应在句末加“风险”。

多项选择题

[说明]
在一些财务软件中，经常需要将阿拉伯数字的账目转化为汉语习惯中的金额计数方法，例如：
“3.45”转化为“叁元四角五分”；
“3.4”转化为“叁元四角”；
“3.40”转化为“叁元四角零分”；
“3.456”转化为“叁元四角五分”；
“345.00”转化为“叁百四十五元零角零分”；
“345”转化为“叁百四十五元”；
以下Visual Basic代码实现了小写金额转换为大写金额。界面如图10-9所示。结合实际例子说明，仔细阅读下面代码，将 (n) 代码补充完整。


[代码7-1]
Begin VB.FormForm1
Caption = "小写金额转换为大写金额"
//...窗体描述(略)
Begin VB.CommandButton Command1
Caption = "退出"
//...窗体描述(略)
End
Begin VB.TextBox Text2
//...窗体描述(略)
End
Begin VB.TextBox Text1
Enabled = 0 ’False
//…窗体描述(略)
End
Begin VB.Labe1 Labe12
Caption = "转换为大写金额"
//...窗体描述(略)
End
Begin VB.Labe1 Labe11
Caphon = "请输入数字"
//...窗体描述(略)
End
End
[代码7-2]
Private Function setdata (num As Integer) As String ’数字转换
Select CaSe num
Case 0
setdata="零"
Case 1
Setdata="壹"
Case 2
Setdata="贰"
Case 3
Setdata="叁"
Case4
Setdata="肆"
Case 5
Setdata="伍"
Case 6
Setdata="陆"
Case 7
Setdata="柒"
Case 8
Setdata="捌"
Case 9
Setdata="玖"
End Select
End Function
Private Function chang (aaa As Integer) As String ’位数转换
Select CaSe aaa
Case 1
chang=""
Case 2
chang="十"
Case 3
chang="百"
Case 4
chang="千"
Case 5
chang="万"
Case 6
chang="十"
Case 7
chang="百"
Case 8
chang="千"
Case 9
chang="亿"
Case 10
chang="十"
End Select
End Function
[代码7-3]
Private Sub Text2_Change ( ) ’小写转大写
Dim i As Integer
Dim j As Integer
Dim myint As Integer
Dim myint1 As Integer
Dim mydoub As Double
Dim mystr As String
Dim mystr1 As String
Dim mystr2 As String
Dim mystr3 As String
Dim mystr4 As String
Dim money As Long
Dim money1 As Integer
Dim money2 As Long
mystr=Text2.Text
myint=InStr (mystr, ".")
If myint=0 Then
mystr=Text2.Text
Else
mystr3=Right(Text2.Text, Len (Text2.Text ) - myint)
If mystr3＜＞""Then’转换小数位
mystr4=Left(mystr3, 1)
mystr3=Right(mystr3, Len(mystr3 ) - 1)
If mystr4＜＞"0"Then
(1)
End If
If mystr3＜＞""Then
mystr4=Left(mystr3, 1)
(2)
End If
End If
mystr=Left(Text2.Text,myint - 1)
End If
j=Len(mystr)
For i=1 To Len(mystr,i)
money2=Left(mystr,i)
money1=Right(money2,1)
If money1=0 Then
Ifj=5 Then
(3)
Else
(4)
End If
Else
(5)
End If
j=j-1
Next i
Text1.Text=mystr1&"元"&mystr2 ’显示大写
End sub
查看答案
填空题

对原来就持（）态度的人来说，“一面提示”的说服效果明显大于“两面提示”；而对于原来持（）态度的人来说，“两面提示”的效果则明显大于“一面提示”。
查看答案