想必现在有很多小伙伴对于vb 考试题方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于vb 考试题方面的知识分享给大家，希望大家会喜欢哦。
在对话框中输入圆的半径，输出计算出的圆的面积。用Inputbox函数来输入数据，话框的标题为“计算机的面积”，提示信息为“请输入半径”，输入区默认值为“1”
Option Explicit
Private Sub Form_Load()
转化载或者引用深本文所内容请想注明来日源于芝士回答
' 在对话框中输入圆的半径，输出计算出的圆的面积。
' 用Inputbox函数来输入数据，话框的标题为“计算机的面积”
' ，提示信息为“请输入半径”，输入区默认值为“1”
Dim banjing As Long
Dim mianji As Single
Dim PI As Single
PI = 14159
banjing = InputBox("请输入半径", "面积计算", 1)
mianji = banjing * banjing * PI
动等起好然干更，议确传影容千斯。
Me.AutoRedraw = True
Print mianji
End Sub
如果一个三位整数等于它的各位数字立方和，则称此数位“水仙花数”，如“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.PicturePrint Shu
End If
Next K
Next j
Next i
Me.PicturePrint "别忘了给分"
End Sub
Private Sub Form_Load()
PictureAutoRedraw = True
End Sub
结果
153
370
371
407
------------
求S=1/（1+4） +1/（1+2*4）+ 1/（1+3*4）+……+1/（1+n*4）的前100项之和。
Option Explicit
Private Sub Form_Load()
' 求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
Next i
End Sub
--------------------------
建议你把题目分开来，每题来到题，都给分数。
这样才有人愿意帮你做
本文到此结束，希望对大家有所帮助。