Int(Sqr(x))Р If x Mod i = 0 ThenР prime = TrueР Exit ForР End IfРNext iРEnd FunctionР17.【加试题】编写VB程序,实现如下功能: 单击“排序数组a”mand1时,对已有数组a的数据进行升序排列,并显示在文本框Label1中;单击“显示数组b”mand2时,将升序数组b的数据显示在文本框Label2中;再单击“合并a和b”mand3时,对数组a和数组b升序合并到字符串中,将合并后的数据在文本框Label3中显示。(运行效果如第17题图所示)。实现上述功能的VB代码如下, 请在划线处填入合适代码。Р 第17题图РDim a(1 To 6) As Integer РDim b(1 To 6) As IntegerРPrivate mand1_Click() '对数组a中的数据进行排序РDim i As Integer, j As Integer ,k as integerРa(1) = 53 :a(2) = 18:a(3) = 62:a(4) = 22:a(5) = 6:a(6) = 25Рs = ""РFor i = 1 To 5 Р k = iР For j = i + 1 To 6Р If a(k) > a(j) Then ①Р Next jР If i <> k ThenР t = a(k): a(k) = a(i): a(i) = tР End IfРNext iРFor i = 1 To 6Р s = s + Str(a(i))РNext iРLabel1.Caption = sРEnd SubРPrivate mand2_Click() Рb(1) = 3: b(2) = 8: b(3) = 15: b(4) = 27: b(5) = 38: b(6) = 49Р'此处部分代码省略
全文预览