资源描述:
《vb附加卷 填空》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、一、.将n个自然数(n<=100)按从小到大的顺序重新排列。输入:输入在文本文件DataIN.txt中,文件有n+1行为需要排序的自然数输出:排序结果输出到文本文件Answer.txt中,每行只放一个自然数求解过程一:constMaxN=100Dima(maxN)AsIntegerDimi,j,k,n,pAsIntegerOpen“DataIn.txt”forInputAs#1Input#1,nForI=1TonInput#1,a(i)NextIClose#1ForI=1ton-1Forj=i+1TonIfa(i)>a(j)Thent
2、=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiOpen"Answer.txt"ForOutputAs#2Fori=1TonPrint#2,a(i)NextiClose#2End求解过程二:以下是求解该问题的VB程序,请在程序中的空白处填写上适当的内容,使程序能完成上述功能。ConstMaxN=100Dima(MaxN)AsIntegerDimi,k,p,t,nAsIntegerOpen"DataIn.txt"ForInputAs#1Input#1,nInput#1,a(1)t=1Fori=1Ton-1Input
3、#1,kp=tWhilep>=1Anda(p)>ka(p+1)=a(p)p=p-1Wenda(p+1)=kt=t+1NextiClose#1Open"Answer.txt"ForOutputAs#2Fori=1TonPrint#2,a(i)NextiClose#2End本求解过程三:ConstMaxN=100Dima(MaxN)AsIntegerDimi,j,k,n,pAsIntegerOpen"DataIn.txt"ForInputAs#1Input#1,nFori=1TonInput#1,a(i)NextiClose#1Fori=
4、1Ton-1k=a(i)p=iForj=i+1TonIfk>a(j)Thenk=a(j)p=jEndIfNextja(p)=a(i)a(i)=kNextiOpen"Answer.txt"ForOutputAs#2Fori=1TonPrint#2,a(i)NextiClose#2End2.输入一个两位数的自然数,如果n乘以2、3、4、5、6、7、8、9所得的积的各位数字之和均相等,则输出yes,否则输出no。输入:输入在文本文件DataIn.txt中,文件只有一行,其中只有一个两位的自然数n输出:输出到文本DataOut.txt中,输出
5、yes或no求解过程:Open "DataIn.txt" For Input As #1Input#1,nClose #1st1 = ""x = n * 2y = Str(x)将x转换为字符型数据L = Len(y)返回字符串y的长度s = 0For i = 2 To 1z = Val(Mid(y, i, 1))从字符串y的第二个位置读取一个字符并转换为数值 s = s+zNext iyes = Truei = 3While (i <= 9) And yes t = 0 x = n*i y = Str(x) l = Len(
6、y) For j = 2 To l z = Val(Mid(y, j, 1)) t = t + z Next j If t <> s Then yes = False i = i + 1WendOpen "DataOut.txt" For Output As #1If yes Then st = "yes"Else st = "no"End IfPrint #1, stClose #1End