Question

vb 考试题

1、 在对话框中输入圆的半径，输出计算出的圆的面积。用Inputbox函数来输入数据，话框的标题为“计算机的面积”，提示信息为“请输入半径”，输入区默认值为“1”
2、 设计一个程序，在一个文本框中输入一个字符串（长度大于2 ）取出该字符串的头、尾各一个字符，合并后显示在第二个文本框中，如输入“ABCDEF”输出“AF”，单击“退出”按钮退出程序，单击“清空”，清除文本框中数据
3、 任意输入3个整数，比较大小，输出最大值，需要在界面中设置4个标签用来提示文本框输入内容，4个文本框用来输入和输出数据，1个命令按钮用来确定输出数据。
4、 设计一个计算器，具有相加，相减，相乘，相除，取整，求绝对值，求平方根和显示当前时间、日期的功能。
5、 如果一个三位整数等于它的各位数字立方和，则称此数位“水仙花数”，如“153=13+15+33”,设计一个程序，求出所有的三位水仙花数。
6、 通过随机函数产生2个两位正整数，求这两个数之和显示出来。
7、 通过Inputbox函数输入一个初始值，从该数值开始，找出100个不能被7整除的自然数。用Msgbox输出答案。
8、 求S=1/（1+4） +1/（1+2*4）+ 1/（1+3*4）+……+1/（1+n*4）的前100项之和。
9、 通过Inputbox函数输入一个小于50的数，求这个数到50的偶数和，用Msgbox显示结果。
10、 在窗体中打印九九乘法表，需显示乘数和被乘数，例“1*1=1”
11、 在一个工程中分别建立两个窗体form1和form2，两个窗体分别显示当前日期和时间，运行程序时，首先判断当前时间是否超过12点，若超过显示窗体form2，否则显示form1。
12、 创建一个工程中分别建立两个窗体form1和form2、form3组成。Form1中建立一个登录界面（假设用户名和密码分别为“username”和“password”，输入正确时显示form2，输入错误时显示form3）。Form2中用标签显示“登录成功！”，用“返回”按钮回到form1，form3中用文本框显示“对不起，用户名或密码错误！”，用“确定”按钮回到form1。form1中用“退出”按钮退出程序。
13、 设计一个程序，输入一个整数，判断该数的奇偶性，利用文本框来实现数据的输入，把判断部分移至子程序中完成，用Msgbox来显示结果。
14、 随机产生10个10—100之间的整数，用“选择排序法”由小到大的排序，最后用文本框来实现数据的输入和输出。
15、 用Inputbox输入两个数n和m，求组合Cnm=n！/m!(n-m)!,用Msgbox输出结果。
16、 凡是满足x2+y2=z2的正整数数组（x，y，z）称之为勾股数组，请找出一个正整数n（n通过Inputbox输入）以内的所有勾股数组，并把这些数值直接显示在窗体上。
17、 通过Inputbox输入一个正整数，求累加（即从1一直加到键入数），求累加的过程在子程序S中完成，由事件过程调用S，通过Msgbox显示结果。
18、 通过Inputbox输入一个正整数，判断该数是否为素数。把素数判断部分通过函数过程来完成，通过Msgbox显示结果。
19、 输入两个正整数，求他们的最大公约数（要求当两个数小于等于0时提示信息为输入有误），最后的结果显示在文本框3内，界面设计如下：
做好了邮件给我 小弟没的分了 先谢谢了 zhouhq100@126.com

Answer 1

1、 在对话框中输入圆的半径，输出计算出的圆的面积。用Inputbox函数来输入数据，话框的标题为“计算机的面积”，提示信息为“请输入半径”，输入区默认值为“1”

Option Explicit

Private Sub Form_Load()
'1、 在对话框中输入圆的半径，输出计算出的圆的面积。
' 用Inputbox函数来输入数据，话框的标题为“计算机的面积”
' ，提示信息为“请输入半径”，输入区默认值为“1”

Dim banjing As Long
Dim mianji As Single
Dim PI As Single
PI = 3.14159

banjing = InputBox("请输入半径", "面积计算", 1)

mianji = banjing * banjing * PI

Me.AutoRedraw = True
Print mianji
End Sub

5、 如果一个三位整数等于它的各位数字立方和，则称此数位“水仙花数”，如“153=13+15+33”,设计一个程序，求出所有的三位水仙花数。

Private Sub Command1_Click()
Dim i As Long
Dim j As Long
Dim K As Long
Dim Shu As Long
Dim shuixianhua As Long
For i = 1 To 9
For j = 0 To 9
For K = 0 To 9
Shu = i * 100 + j * 10 + K * 1 '生成三位数
shuixianhua = i * i * i + j * j * j + K * K * K
If Shu = shuixianhua Then
Me.Picture1.Print Shu
End If
Next K
Next j
Next i
Me.Picture1.Print "别忘了给分"
End Sub

Private Sub Form_Load()
Picture1.AutoRedraw = True
End Sub

结果
153
370
371
407

------------

8、 求S=1/（1+4） +1/（1+2*4）+ 1/（1+3*4）+……+1/（1+n*4）的前100项之和。

Option Explicit

Private Sub Form_Load()
'8、 求S=1/（1+4） +1/（1+2*4）+ 1/（1+3*4）+……+1/（1+n*4）的前100项之和。
Dim S As Single
Dim i As Long
For i = 1 To 100
S = S + 1 / (1 + i * 4)
Next i

Me.AutoRedraw = True
Print S
End Sub

-------------------

Option Explicit

Private Sub Form_Load()
' 在窗体中打印九九乘法表，需显示乘数和被乘数，例“1*1=1”
Me.AutoRedraw = True
Dim i As Long
Dim j As Long
For i = 1 To 9
For j = 1 To i
Dim PrintString As String
PrintString = (i & "*" & j & "=" & i * j & " ")
Print Left(PrintString, 8);
Next j
Print
Next i
End Sub
--------------------------

建议你把题目分开来，每题来到题，都给分数。

这样才有人愿意帮你做

Answer 2

太多 题目

自己 慢慢做吧

为了你 好