visual__basic程序設(shè)計(jì)課后編程答案.doc

第一卷Dim n As Integern=Text1.TextIF(n Mod 4 =0 And n mod 1000 or n mod 400 = 0)ThenText2.text =”閏年”ElseText2.text=”非閏年”End IF求和 求積Dim i As integerOpen App.path&”jsdata.txt”For input As #1For i =1 to 15Input #1,arr(i)Next iIf op1.value=ture thenT1.text=Aaa()End ifIf op2.value=ture thenT1.text=Bbb()End ifClose #1寫入文件 *Dim i As Integer, j As Integer, n As IntegerOpen app.path &”zfwj.txt”for output As #1n=val(text1.text)for I =1 to nfor j=1 to iprint #1,”*”;next jprint #1next I close#1第二卷計(jì)算結(jié)果dim n As Integer, I As Integer, s1 As integer,s2 As longn=val(text1.textfor I =1 to ns1=s1+is2=s2+s1next itext2.text=s2求值dim n1 as integer, n2 as integer, n3 as integer,t as integern1= val(text1.text)n2=val(text2.text)n3=val(text3.text)if n1n2 then t=n1:n1=n2:n2=tif n2n3 then t=n2:2=n3:3=tif n1n2 then t =n1:1=n2:2=ttext4.text=n1text5.text=n3建立文件 顯示文件Dim num as string,name as srting, I as integerOpen App.path&”xhxm.txt”for output As #1For I = 1 to 3num=inputbox(“請(qǐng)輸入學(xué)號(hào)：“)name = inputbox(“請(qǐng)輸入姓名：“)write #1,num,namenext iclose #1End sub Private sub command2_click()Dim s as string, I as integerOpen app.path &xhxm.txt” for input as # 1Do While Not EoF(1)Line input # 1,sText1.text= text1.text& s & vbCrLfLoopClose #1第三卷求和 輸入N值Dim n As integer, I as integer, sum as integerN= val(text1.text)For I = 1 to nIf I mod 3 =0 then sum = sum+ iNext iText2.text=sum輸入正整數(shù)NDim m As integer, n as integerPrivate sub commad1_click(0Dim c as doubleN=text1.textM=text2.textIf n=”a”and c =”z” or c =“a” and c =”z” then s =s+1Next iLabel1.caption= “共“ & s &”個(gè)英文字母”End sub第四卷轉(zhuǎn)換 十進(jìn)制Dim n as integer,b as stringN=text1.textB=zh(n)Text2.text=b讀取文件 加密Dim s1 as stringPrivate sub command1_click()Open app.path &”jmwb.txt”for input as #1Input #1,s1Text1.text=s1End subPrivate sub command2_click()Dim n As integer, I as integer dim s2 as string, j As stringN=Len(s1)For I =1 to nJ=mid(s1,I,1)J=chr(asc(j)+5)S2=s2&jNext iText2.text=s2生成數(shù)組 降序排列Option base 1 Dim n AS integer,x(15) as integer Private Sub command1_Click(0Dim s1 as string For N= 1 to 15X(N)=int(91 * Rnd +10)S1=s1 &STR(x(N)Next NText1.text =s1End subPrivate sub command2_click()Dim s2 as stringDim I as integer, j AS integer t as integerFor I =1 to 15For j 1 to 15For j=I +1 to 15If x (i)= Asc(“A”) and asc (s)=Asc(“a”) And a