vb附加卷 填空.doc

一、.将n个自然数（n a(j) Then t= a(i) a(i) = a(j) a(j) = t End If Next j Next i Open Answer.txt For Output As #2 For i = 1 To n Print #2, a(i) Next i Close #2 End求解过程二：以下是求解该问题的VB程序，请在程序中的空白处填写上适当的内容，使程序能完成上述功能。Const MaxN = 100 Dim a(MaxN) As Integer Dim i, k, p, t, n As IntegerOpen DataIn.txt For Input As #1 Input #1, n Input #1, a(1) t= 1 For i = 1 To n - 1 Input #1, k p= t While p = 1 And a(p) ka(p + 1) = a(p) p =p-1Wend a(p+1)= k t = t + 1 Next i Close #1 Open Answer.txt For Output As #2 For i = 1 To n Print #2, a(i) Next i Close #2 End本求解过程三：Const MaxN = 100 Dim a(MaxN) As Integer Dim i, j, k, n, p As Integer Open DataIn.txt For Input As #1 Input #1, n For i = 1 To n Input #1, a(i) Next i Close #1 For i = 1 To n - 1k = a(i) p = iFor j = i + 1 To n If k a(j) Then k = a(j) p= j End If Next j a(p)= a(i) a(i)= k Next i Open Answer.txt For Output As #2 For i = 1 To n Print #2, a(i) Next i Close #2 End2.输入一个两位数的自然数，如果n乘以2、3、4、5、6、7、8、9所得的积的各位数字之和均相等，则输出yes，否则输出no。输入：输入在文本文件DataIn.txt中，文件只有一行，其中只有一个两位的自然数n输出：输出到文本DataOut.txt中，输出yes或no求解过程：OpenDataIn.txtForInputAs#1 Input #1,nClose#1 st1= x=n*2 y=Str(x) 将x转换为字符型数据L=Len(y) 返回字符串y的长度s=0 Fori=2To1 z=Val(Mid(y,i,1) 从字符串y的第二个位置读取一个字符并转换为数值s=s+z Nexti yes=True i=3 While(i=9)Andyes t=0 x=n*i y=Str(x) l=Len(y) Forj=2Tol z=Val(Mid(y,j,1) t=t+z Nextj IftsThenyes=False i=i+1 Wend OpenDataOut.txt