《VB课后答案.doc》由会员分享,可在线阅读,更多相关《VB课后答案.doc(10页珍藏版)》请在金锄头文库上搜索。
1、1. 通过文本框TextBook1舒服一个实数,单击计算按钮,在TextBook2-6中分别输出该数的相反数,平方,绝对值平方根,立方以及绝对值的立方根。需要在文本框前添加注释文本框内的数据。Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System
2、.EventArgs) Handles Button1.Click Dim x As Single x = TextBox1.Text TextBox2.Text = -x TextBox3.Text = x 2 TextBox4.Text = System.Math.Sqrt(System.Math.Abs(x) TextBox5.Text = x 3 TextBox6.Text = (System.Math.Abs(x) (1 / 3) End SubEnd Class2.使用文本框Textbook1和Textbook2分别输入两个数,给变量X和Y赋值,单击交换按钮变换按钮,交换extbo
3、ok1和Textbook2中的内容。Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x, y, t As Integer x = TextBox1.Text y = TextBox2.Text t = x x = y y = t TextBox1.Text = x TextBox2.Text = y End SubEnd Class3.输入一元二次方程ax2+bx+c=0的系数a.b
4、.c计算并输出方程的两个根X1和X2。创图界面如图所示 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Dim a, b, c As Integer, x1 As Single, x2 As Single a = TextBox1.Text b = TextBox2.Text c = TextBox3.Text x1 = (-b + (b 2 - 4 * a * c) (1 / 2) / (2 * a) x2 = (-b - (b 2 - 4 * a * c)
5、 (1 / 2) / (2 * a) TextBox4.Text = x1 TextBox5.Text = x2 End SubEnd Class4使用输入对话框输入球的半径,计算。然后在两个文本框中分别输入球的体积和表面积 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim r, s, v As Single Const pi = 3.14 r = InputBox(请输入球的半径) Label1.Text = 球的半径是
6、 & r s = 4 * pi * r 2 v = 4 / 3 * pi * r 3 TextBox1.Text = s TextBox2.Text = vEnd Sub5.用输入对话框inputbox输入一个正整数,判断其能是否同时被3和17整除,如能则用标签输出xxx能同时被3和17整除,否则输出不能同时被3和17整除。其中标签中的xxx应显示为实际输出数据。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x% x
7、= InputBox(请输入一个正整数) If x Mod 3 = 0 And x Mod 17 = 0 Then Label1.Text = x & 能同时骸被3和17整除 Else Label1.Text = x & 不能同时骸被3和17整除 End IfEnd Sub3.编写程序,在文本框中输出三位数中的所有素数。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, m As Integer, str1 As S
8、tring, flag As Boolean str1 = 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 TextBox1.Text = str1 End SubEnd Class5.求出2000-2100年之间的所有闰年,使用文本框输出闰年,并统计共有多少闰年。 Private Sub Button1_Click(ByVal sender As S
9、ystem.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim y, n As Integer For y = 2000 To 2100 If (y Mod 4 = 0 And y Mod 100 0) Or y Mod 400 = 0 Then TextBox1.Text = TextBox1.Text & y & vbCrLf n = n + 1 End If Next TextBox2.Text = n End Sub1.编写程序,计算并输出数列1*2,2*4,3*6,。,n*2n。前N项中偶数项的和。 Priva
10、te Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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 TextBox1.Text = s End Sub11.找出并输出所有三位数中,能同时被5和7整除。切个位十位百位的数码之和等于13的数据。 Private S
11、ub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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 TextBox1.Text = TextBox1.Text & i & vbCrLf End If Next End SubEnd C
12、lass10.随机产生是个区间位于10-90之间的整数,计算其平均值,并输出大于均值的整数,统计其个数。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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 TextBox1.Text = sEnd Sub2.百万白瓦问题。有100匹马驼100快瓦,大马驼三块,小马托2块。两个马驹驼一块,问大马小马马驹各有多少?Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x As Integer, y As Integer, z As Integer Dim str1 As String str1 = For x = 0 To 33