VB考试题目？？？

在工程资源管理器中右击工程一，点工程一属性，将工程名称下文本框的内容改为Vbcd，在属性窗口中将Form1的名称改为Menu1。

然后保存，工程的名称为Menu1.vbp,窗体的名称为Menu1.frm.

题目你弄过错了，在保存的时候将。vbp的名字命名为Vbcd将FRM的名字命名为menu。
右击重命名，只要是没有搞错一般没有问题，就是害怕命名之后的程序会连接不起来。

jiawenboasd的回答是对的

去那个文件夹看看是不是有人已经建立过了！

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
--------------------------

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

这样才有人愿意帮你做