Question

vb编程。题目如下

Dim a(1 To 10) As Integer
Dim i As Integer
Private Sub Command1_Click()
Randomize
Print "产生的随机数为："
For i = 1 To 10
a(i) = Int(Rnd * 90 + 10)
Print a(i)
Next i
Print
End Sub

Private Sub Command2_Click()
Dim x As Integer
x = a(1)
For i = 2 To 10
a(i - 1) = a(i)
Next i
a(10) = x
Print a(1); a(2); a(3); a(4); a(5); a(6); a(7); a(8); a(9); a(10)
End Sub

Private Sub Command3_Click()
Dim k As Integer
n = 10
k = Val(InputBox("请输入要删除元素的位置："))
For i = k To n - 1
a(i) = a(i + 1)
Next i
n = n - 1
Print "删除第" & k & "个元素后："
Print a(1); a(2); a(3); a(4); a(5); a(6); a(7); a(8); a(9)
ReDim Preserve a(n)

End Sub

跪问，问题出在哪里？？

Answer 1

病情分析：
首先，你应该防止自己受凉，这是流产后最应该注意的。另外，你还要有一下注意事项，以免造成不可逆的损伤。
指导意见：
1.首先你应该加强营养：流产后一般都会使身体变得比较虚弱，有些人还会出现轻度贫血。因此，流产后应多吃些营养丰富的补养品，以及新鲜蔬菜和水果，如瘦肉、鱼、蛋、鸡、乳、海产品、大豆制品等。
2.讲究个人卫生：流产时，子宫颈口开放至完全闭合需要一定时间，故流产后要特别注意讲究个人卫生。要保持阴部清洁，内裤要常洗常换，半个月内不可盆浴。还应提出的是，流产后1个月内，子宫尚未完全恢复，要严禁过性生活，以防感染。
3.休息好，防止劳累过度：流产后须卧床休息两周，不可过早地参加体力劳动，严防过度疲劳和受寒受潮。否则，易发生子宫脱垂的病症。
4.不可急于再次怀孕：流产后子宫内膜需要4-5个月的时间才能完全恢复正常，在这期间，应严防再次怀孕，因为子宫内膜未恢复正常就怀孕对胎儿生长和以后生产都有不利影响。
5.保持心情愉快：愉快的情绪，会加速流产后身体的康复，有益于健康。

病情分析：
人流之后需要积极消炎 禁止性生活一个月慎起居避风寒 饮食上忌食辛辣寒凉 上述的你有很多都没有做到 但是每个人的体制不一样 这都是常规的保护 避免以后留下一些疾病 如果现在身体没有什么不舒服的 就从现在好好保护吧
指导意见：
建议之前的事情都没有好好注意 从现在开始好好注意以上说的注意事项吧 避免以后有身体的不舒服
医生询问：
现在身体有什么不舒服的吗？

Answer 2

'最近不想动脑子,你参考一下
'删除数组中指定元素
Private Sub Command1_Click()
Const Match = 3 '匹配值
Dim a
Dim i As Integer, j As Integer
a = Array(7, 6, 5, 1, 8, 5, 3, 9, 4)
For i = 0 To UBound(a)
If a(i) = Match Then '此处你可以改成if i = 3,就是第四个元素
For j = i To UBound(a) - 1
a(j) = a(j + 1)
Next
ReDim Preserve a(UBound(a) - 1)
Exit For
End If
Next
Debug.Print Join(a, ",")
End Sub

Answer 3

请删除本句。
ReDim Preserve a(n)

追问

这句话 ，我之前就不是很明白，能解释一下不

追答

本句是再定义数组

但它不应该放在最后，好像格式也不对