visual__basic程序设计课后编程答案.docVIP

第一卷 Dim n As Integer n=Text1.Text IF(n Mod 4 =0 And n mod 100 0 or n mod 400 = 0)Then Text2.text =”闰年” Else Text2.text=”非闰年” End IF 求和 求积 Dim i As integer Open App.path”\jsdata.txt”For input As #1 For i =1 to 15 Input #1,arr(i) Next i If op1.value=ture then T1.text=Aaa() End if If op2.value=ture then T1.text=Bbb() End if Close #1 写入文件 **** Dim i As Integer, j As Integer, n As Integer Open app.path ”\zfwj.txt”for output As #1 n=val(text1.text) for I =1 to n for j=1 to i print #1,”*”; next j print #1 next I close#1 第二卷 计算结果 dim n As Integer, I As Integer, s1 As integer,s2 As long n=val(text1.text for I =1 to n s1=s1+i s2=s2+s1 next i text2.text=s2 求值 dim n1 as integer, n2 as integer, n3 as integer,t as integer n1= val(text1.text) n2=val(text2.text) n3=val(text3.text) if n1n2 then t=n1:n1=n2:n2=t if n2n3 then t=n2:2=n3:3=t if n1n2 then t =n1:1=n2:2=t text4.text=n1 text5.text=n3 建立文件 显示文件 Dim num as string,name as srting, I as integer Open App.path”\xhxm.txt”for output As #1 For I = 1 to 3 num=inputbox(“请输入学号：“) name = inputbox(“请输入姓名：“) write #1,num,name next i close #1 End sub Private sub command2_click() Dim s as string, I as integer Open app.path \xhxm.txt” for input as # 1 Do While Not EoF(1) Line input # 1,s Text1.text= text1.text s vbCrLf Loop Close #1 第三卷 求和 输入N值 Dim n As integer, I as integer, sum as integer N= val(text1.text) For I = 1 to n If I mod 3 =0 then sum = sum+ i Next i Text2.text=sum 输入正整数N Dim m As integer, n as integer Private sub commad1_click(0 Dim c as double N=text1.text M=text2.text If n=m then C=fact(m)/(fact(n)* fact(m-n)) Text3.text=c Else Msgbox”输入的n必须小于等于m！请重新输入“ Text1.text=”” Text2.text=”” Text1.setfocus End if End sub 读入数据 统计英文字母 Dim s as string Open app.path”\yy.txt”for input as #1 Do while not EOF(1) Line input #1,s Text1.text=text1.text s vbCrLf Loop Close #1 End sub Private sub command2_click() Dim n as integer, I as integer, s As integer, c as string N= Len(text1.text) For I = 1 to n C= mid(text1.text,I,1) If c =”a”and c =”z” or c