题目
A.丽江去年接待280万游客,敦煌一个石窟里一下子挤进了几十人
B.丽江去年接待280万游客.故宫高峰期一天接待了12万人
C.敦煌一个石窟里一下子挤进了几十人,故宫高峰期一天接待了12万人
D.泰山上居然有缆车,在文物景点居然建立商店和娱乐设施
第1题
阅读以下文字,完成 96~100 题。
第 96 题 “高级语音编解码”传递话语通过()。
第3题
A.在健康人中,自身抗体出现的频率随年龄增加而增高
B.正常人血清中。可以协助清除衰老蜕变的自身成分
C.年轻人血清中可以针对多种自身抗原的自身抗体
D.60岁以后有50%以上的人有自身抗体
第4题
A.对农作物造成危害的杂草有六十多种
B.生长素只能把地上部分的杂草全部毒死
C.有机酸可以防止苹果的早期脱落
D.生长素是一种化学药剂,能抑制杂草生长,而对农作物无害
第5题
A.有些人不相信自己有潜能,经不住失败的考验
B.有些人总是怀疑自己笨,总觉得自己不行
C.有些人“自己脑子笨”,没有潜能,无法开发
D.人的潜能会转化,也会自我毁灭
第7题
●试题八
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在答题纸的对应栏内。
【说明】
该应用程序是用来修改文本框中的字体属性,其运行窗口如图4所示。
窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont,chkltalic,chkSize,chkColor)组成。程序运行后,用户在文本框内输入一段文字,然后按需要单击各选择框,用以改变文本的字体、字型、颜色及大小。
文本框的Mulitine属性已经设为True。当不选择"黑体"时,文字应是"宋体"。当不选择"大小16"时,字号为9。当不选择"紫色"时,字色为黑色。当不选择"斜体"时,文字采用正常字型。
【程序代码】
Private Sub chkFont Click()
If (1) Then
txtPassage.FontName="黑体"
Else
txtPassage.FontName="宋体"
End If
End Sub
Private Sub (2) ()
If chkColor.Value=1 Then
txtPassage.ForeColor=QBColor (13)
Else
txtPassage.ForeColor=QBColor(0)
End If
End Sub
Private Sub chkltalic_Click()
If chkltalic.
Value=1 Then
txtPassage.FontI talic= (3)
Else
txtPassage.FontItalic= (4)
End If
End Sub
Private Sub chkSize_Click()
If (5) Then
txtPassage.Font.Size=16
Else
txtPassage.Font.Size=9
End If
End Sub
第8题
A.局促
B.陈列
C.柔腻之感
D.颇悦人目
第9题
A.叙述“强生”被曝光的过程
B. 证明“强生”含有甲醛及二恶烷
C. 第三方意见的存在对社会具有公益性
D. 权威如美国食品和药物管理局也需要别人提醒
第10题
阅读以下应用说明及Visual Basic部分程序代码,将应填入(n)处的字句写在对应栏内。
【说明】
该应用程序是用来修改文本框中的字体属性,其运行窗口如图4所示。
窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont,chkltalic,chkSize,chkColor)组成。程序运行后,用户在文本框内输入一段文字,然后按需要单击各选择框,用以改变文本的字体、字型、颜色及大小。
文本框的Mulitine属性已经设为True。当不选择“黑体”时,文字应是“宋体”。当不选择“大小16”时,字号为9。当不选择“紫色”时,字色为黑色。当不选择“斜体”时,文字采用正常字型。
【程序代码】
Private Sub chkFont Click()
If (1) Then
txtPassage. FontName ="黑体"
Else
txtPassage. FontName ="宋体"
End If
End Sub
Private Sub (2) ()
If chkColor. Value = 1 Then
txtPassage. ForeColor = QBColor(13)
Else
txtPassage. ForeColor = QBColor (0)
End If
End Sub
Private Sub chkltalic_Click()
If chkltalic. Value = 1 Then
txtPassage. Fontl talic =(3)
Else
txtPassage. Fontltalic=(4)
End If
End Sub
Private Sub chkSize Click()
If (5) Then
txtPassage. Font. Size = 16
Else
txtPassage. Font. Size = 9
End If
End Sub
为了保护您的账号安全,请在“赏学吧”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!