VB课后答案.pdf

《VB课后答案.pdf》由会员分享，可在线阅读，更多相关《VB课后答案.pdf（9页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一寸光阴一寸金，寸金难买寸光阴。增广贤文勿以恶小而为之，勿以善小而不为。刘备1.通过文本框TextBook1舒服一个实数，单击计算按钮，在TextBook2-6中分别输出该数的相反数，平方，绝对值平方根，立方以及绝对值的立方根。需要在文本框前添加注释文本框内的数据。Public Class Form1 Private Sub Form1_Load(ByVal sender As,ByVal e As Handles End Sub Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim x As Single x=-x

2、=x 2 =x 3 =(1/3)End Sub End Class 2.使用文本框Textbook1和Textbook2分别输入两个数，给变量X和Y赋值，单击交换按钮变换按钮，交换extbook1和Textbook2中的内容。Public Class Form1 Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim x,y,t As Integer x=y=t=x x=y y=t =x =y End Sub End Class 3.输入一元二次方程ax2+bx+c=0的系数计算并输出方程的古之立大事者，不惟有超世之才，

3、亦必有坚忍不拔之志。苏轼其身正，不令而行；其身不正，虽令不从。论语两个根X1和X2。创图界面如图所示 Private Sub Form1_Load(ByVal sender As Object,ByVal e As Handles Dim a,b,c As Integer,x1 As Single,x2 As Single a=b=c=x1=(-b+(b 2-4*a*c)(1/2)/(2*a)x2=(-b-(b 2-4*a*c)(1/2)/(2*a)=x1 =x2 End Sub End Class 4使用输入对话框输入球的半径，计算。然后在两个文本框中分别输入球的体积和表面积 Private

4、 Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim r,s,v As Single Const pi=r=InputBox(请输入球的半径)=球的半径是&r s=4*pi*r 2 v=4/3*pi*r 3 =s =v End Sub 5.用输入对话框inputbox输入一个正整数，判断其能是否同时被3和17整除，如能则用标签输出xxx能同时被3和17整除，否则输出不能同时被3和17整除。其中标签中的xxx应显示为实际输出数据。Private Sub Button1_Click(ByVal sender As,ByVal e As

5、Handles Dim x%x=InputBox(请输入一个正整数)If x Mod 3=0 And x Mod 17=0 Then =x&能同时骸被3和17整除 Else =x&不能同时骸被3和17整除 End If End Sub 3.编写程序，在文本框中输出三位数中的所有素数。人不知而不愠，不亦君子乎？论语天行健，君子以自强不息。地势坤，君子以厚德载物。易经 Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim i,m As Integer,str1 As String,flag As Boolean str1=

6、For m=101 To 999 flag=True For i=2 To m-1 If m Mod i=0 Then flag=False Exit For End If Next If flag Then str1=str1&m&vbCrLf Next =str1 End Sub End Class 5.求出2000-2100年之间的所有闰年，使用文本框输出闰年，并统计共有多少闰年。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim y,n As Integer For y=2000 To 2100 If(y M

7、od 4=0 And y Mod 100 0)Or y Mod 400=0 Then =&y&vbCrLf n=n+1 End If Next =n End Sub 1.编写程序，计算并输出数列1*2,2*4，3*6，。，n*2n。前N项中偶数项的和。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim i As Integer,n As Integer Dim s As Single n=InputBox(请输入n)s=0 For i=2 To n Step 2 s=s+i*2*i Next =s End Sub 天

8、行健，君子以自强不息。地势坤，君子以厚德载物。易经好学近乎知，力行近乎仁，知耻近乎勇。中庸11.找出并输出所有三位数中，能同时被5和7整除。切个位十位百位的数码之和等于13的数据。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim i,a,b,c As Integer For i=100 To 999 a=i 100 b=(i 10)Mod 10 c=i Mod 10 If i Mod 5=0 And i Mod 7=0 and a+b+c=13Then =&i&vbCrLf End If Next End Sub

9、End Class 10.随机产生是个区间位于10-90之间的整数，计算其平均值，并输出大于均值的整数，统计其个数。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim i As Integer,n As Integer Dim s As Single n=InputBox(请输入n)s=0 For i=2 To n Step 2 s=s+i*2*i Next =s End Sub 2.百万白瓦问题。有100匹马驼100快瓦，大马驼三块，小马托2块。两个马驹驼一块，问大马小马马驹各有多少 Public Class Fo

10、rm1 Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim x As Integer,y As Integer,z As Integer Dim str1 As String str1=For x=0 To 33 For y=0 To 50 z=100-x-y 万两黄金容易得，知心一个也难求。曹雪芹古之立大事者，不惟有超世之才，亦必有坚忍不拔之志。苏轼 If 3*x+2*y+z/2=100 Then str1=str1&大马：&x&vbtab 小马：&y&马驹v：阰&z&vbCrLf End If Next y Ne

11、xt x =str1 End Sub End Class 3.通过文本框输入一串符号，以问号作为结束标志，单击命令按钮，要求分别统计字符串中所含字母和字符串的个数。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim s,letter As String,n1,n2,i As Integer s=i=1 Do letter=Mid(s,i,1)Select Case letter Case A To Z,a To z n1+=1 Case 0 To 9 n2+=1 End Select i+=1 Loop Until

12、letter=n1 =n2 End Sub 9.有一个数列，其前三项分别为，从第四项开始，每项均为其前三项之和的1/2，问该数列从第几项开始，其数值超过1200 Public Class Form1 Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim i As Integer,f1,f2,f3,f4 As Double f1=1:f2=2:f3=3:i=3 Do f4=(f1+f2+f3)/2 f1=f2:f2=f3:f3=f4 i+=1 以铜为镜，可以正衣冠；以古为镜，可以知兴替；以人为镜，可以明得失。旧唐书魏征列

13、传谋事在人，成事在天！增广贤文 Loop Until f4 1200 (i)End Sub End Class 8.利用随机函数产生一个由15个10-90之间的奇数的随机整数，并显示在标签1中，单击明令按钮，将该数列中的数据从大到小的顺序排列，并显示在标签2中。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim i,t As Integer,a(15)As Integer,x As Integer,s As String Randomize()s=Do x=Int(Rnd()*81)+10 If x Mod 2 0

14、Then i=i+1 a(i)=x s=s&Str(a(i)End If Loop Until i=15 =s For i=1 To 14 For j=i+1 To 15 If a(i)10 For i=1 To 10-p =&a(i)&百川东到海，何时复西归？少壮不尽力，老大徒伤悲。汉乐府长歌行我尽一杯，与君发三愿：一愿世清平，二愿身强健，三愿临老头，数与君相见。白居易 Next i End Sub End Class 7.用随机函数产生一个5*5的矩阵，数据范围为22-99之间的整数。输出该矩阵并求该矩阵周边元素之和。Private Sub Button1_Click(ByVal send

15、er As,ByVal e As Handles Dim a(4,4)As Integer,str As String Dim i As Integer,j As Integer,t As Integer Dim s1 As Integer,s2 As Integer,s As Integer str=For i=0 To 4 For j=0 To 4 a(i,j)=Int(Rnd()*78)+22 str=str&a(i,j)If j=4 Then str=str&vbCrLf Else str=str&vbTab End If Next j Next i =str For i=0 To 4

16、 For j=0 To 4 s1=s1+a(i,j)或if i=0 or i=4 or j=0 orj=4 then s1=s1+a(i,j)Next Next For i=1 To 3=0 For j=1 To 3 s2=s2+a(i,j)s=s1=a(0,0)-a(0,4)-a-a(4,4)Next Next s=s1-s2 =s End Sub End Class 6.编写程序，实施矩阵转置，矩阵转置就是将一个M*N的矩阵的行与列互换，结果为M*N的矩阵。Private Sub Button1_Click(ByVal sender As,ByVal e As Handles Dim a(

17、2,3),b(3,2)As Integer,str As String,i,j As Integer 丹青不知老将至，贫贱于我如浮云。杜甫我尽一杯，与君发三愿：一愿世清平，二愿身强健，三愿临老头，数与君相见。白居易 For i=0 To 2 For j=0 To 3 a(i,j)=Int(Rnd()*100)str=str&a(i,j)If j=3 Then str=str&vbCrLf Else str=str&vbTab End If Next Next =str str=For i=0 To 3 For j=0 To 2 b(i,j)=a(j,i)str=str&b(i,j)If j=2 Then str=str&vbCrLf Else str=str&vbTab End If Next Next =str End Sub End Class