VB课后答案

1 / 17下载文档可编辑 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.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 Sub End Class 2 / 17下载文档可编辑

2.使用文本框Textbook1和Textbook2分别输入两个数，给变量X和Y赋值，单击交换按钮变换按钮，交换extbook1和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 Sub End Class 3.输入一元二次方程ax^2+bx+c=0的系数a.b.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 3 / 17下载文档可编辑

c = TextBox3.Text x1 = (-b + (b ^ 2 - 4 * a * c) ^ (1 / 2)) / (2 * a) x2 = (-b - (b ^ 2 - 4 * a * c) ^ (1 / 2)) / (2 * a) TextBox4.Text = x1 TextBox5.Text = x2 End Sub End Class 4使用输入对话框输入球的半径，计算。然后在两个文本框中分别输入球的体积和表面积 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 = "球的半径是" & r s = 4 * pi * r ^ 2 v = 4 / 3 * pi * r ^ 3 TextBox1.Text = s TextBox2.Text = v End Sub 5.用输入对话框inputbox输入一个正整数，判断其能是否同时被3和17整除，如能则用标签输出xxx能同时被3和17整除，否则输出不能同4 / 17下载文档可编辑

时被3和17整除。其中标签中的xxx应显示为实际输出数据。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim x% x = InputBox("请输入一个正整数") If x Mod 3 = 0 And x Mod 17 = 0 Then Label1.Text = x & "能同时骸被3和17整除" Else Label1.Text = x & "不能同时骸被3和17整除" End If End Sub 3.编写程序，在文本框中输出三位数中的所有素数。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i, m As Integer, str1 As String, 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 5 / 17下载文档可编辑

End If Next If flag Then str1 = str1 & m & vbCrLf Next TextBox1.Text = str1 End Sub End Class 5.求出2000-2100年之间的所有闰年，使用文本框输出闰年，并统计共有多少闰年。 Private Sub Button1_Click(ByVal sender As System.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 Sub 1.编写程序，计算并输出数列1*2,2*4，3*6，。。。，n*2n。。。前N项中6 / 17下载文档可编辑

偶数项的和。 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 = s End Sub 11.找出并输出所有三位数中，能同时被5和7整除。切个位十位百位的数码之和等于13的数据。 Private Sub 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 7 / 17下载文档可编辑

TextBox1.Text = TextBox1.Text & i & vbCrLf End If Next End Sub End Class 10.随机产生是个区间位于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 = s End Sub 2.百万白瓦问题。有100匹马驼100快瓦，大马驼三块，小马托2块。两个马驹驼一块，问大马小马马驹各有多少？ Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object,