题目内容

下列程序运行时输出的结果是( )。 Option Base 1 Const a=10 Private Sub Form_Click0 Dim x(a)As Integer k=-1 For i=1 To a x(i)=ik k=(-1)k Next i For i=1 To 10 Print x(i) Next i End Sub

A. 1 3 5 7 9 10
B. -1-3-5-7-9
C. -1 2-3 4-5 6-7 8-9 10
D. 1-2 3-4 5-6 7-8 9-10

查看答案

搜索结果不匹配？点我反馈

更多问题

下列程序代码实现生成20个0～100之问的随机整数，存于数组中，打印数组中大于50的数，并求这些数的和。请选择正确的程序段( )，完成程序。 Private Sub Command1 Click() Dim arr(1 To 20) For i=1 To 20 arr(i)= Text1. Text=Text1. Text＆arr(i)＆Chr(13)＆Chr(10) Next i Surn=0 For Each X If X＞50 Then Print Tab(20)；X Sum=Sum+X End If NextX Print Tab(20)；"Sum="；Sum End Sub

A. Int(Rnd*99+1)In arr
B. Int(Rnd)In arr
C. Int(Rnd*99+1)In arr()
D. Int(Rnd)In arr()

吴老先生因脑溢血已在家卧床2个月，大小便失禁，不能自行翻身，近日骶尾部皮肤呈紫红色，压之不褪色。给予的护理措施哪项不妥( )。

A. 每2小时翻身1次
B. 保持衣裤及床铺干燥
C. 尿湿后用温水擦净皮肤
D. 每天按摩骶尾部2次 E．床上铺气垫褥

吴老先生因脑溢血已在家卧床2个月，大小便失禁，不能自行翻身，近日骶尾部皮肤呈紫红色，压之不褪色。吴先生骶尾部皮肤表现属哪一期褥疮( )。

A. 淤血红润期
B. 淤血浸润期
C. 炎性浸润期
D. 浅层溃疡期
E. 深层溃疡期

(4)中国对于中东问题以及巴以问题的立场。