先说答案：

空

第二个空

第三个空'c[k] = a[i];

再说思路：

首先已知 i 和 j 分别代表选用 a 和 b 的索引，

既然是使用比较小的排在前边，

那如果 a[i] 比 b[j] 小，就肯定是选用 a[i]。比如第一次比较时，a[0] < b[0]，所以

用 a[0]。于是有

比较后其它地方没有给 i 或 j 自增，

a[0] 已经被写到 c[0] 位置了，

所以下一次比较应该使用 a[1] 与 b[0] 再进行比较，

因此需要进行 *** 作。

if结束后，不走else，直接k++，所以接下来是看c[1]是什么数字。

再执行一次发现 a[1] < b[0] ，i 变成 2，k变成2。

再看 else 部分，走到 a[2] 与 b[0] 的比较发现结果是

a[2] > b[0]，所以此时 c[2] 应当使用 b[0]，

因此用 c[k] = b[j] 来选用更小的答案。

随后与a一样，需要对 j 进行 ++，下一次使用 a[2] 与 b[1] 比较，

判断结束后 k++，下一次判断 c[3] 是 a[2] 还是 b[1]。

当所有判断结束后，两个char[] 已经按照顺序排列到了 c[] 里，

此时的 k 坐标在完成最后一次判断后还是 ++ 了一次，指向

len(a+b)+1 的位置。

Private Sub Command1_Click()

Dim i As Integer, x As Integer, y As Integer, flag As Boolean

flag = false'这里应是false，否则无法执行

x = InputBox("请输入一个正整数", "输入正整数")

y = x'把x给y，下面输出要用

Do While Not flag‘只有标记为真时，才执行 i = 2'1不可以为素数

，所以选2

flag = True'把标记设为真

Do While flag And i <= x / 2'标记为真，且i小于等于x/2

If x Mod i = 0 Then'如果x可以被i整除，标记就变成假

flag = False

Else

i=i+1'i加一

End If

Loop

If Not flag Then x=x+1'如果没有找到素数那么x+1

Loop Print "大于或等于" & Str(y) & " 的

素数是" & Str(x)

End Sub

原来这个程序是找出一个大于或等于你输入的数的第一个素数啊