Question

vb编译错误：必选参数

Private Sub Command1_Click()
a , k = InputBox
b = 0
i = 0
Do
q = a \ k
r = a Mod k
b = b + r * 10 ^ i
i = i + 1
a = q
Loop Until q = 0
Print b
End
End Sub

Answer 1

Private Sub Command1_Click()

Dim a As Double, b As Double, c As Double

Dim s As Double, area As Double, r As Integer

a = Val(Text1)

b = Val(Text2)

c = Val(Text3)

If a + b > c Or a + c > b Or b + c > a Then

s = (a + b + c) / 2

area = Sqr(s * (s - a) * (s - b) * (s - c))

MsgBox "三角形的面积是：" & Str(area), , "计算三角形面积程序"

Else

MsgBox "输入的三边不能构成三角形"

End If

End Sub

Private Sub Form_Load()

Text1 = "40"

Text2 = "50"

Text3 = "80"

Command1.Caption = "计算"

End Sub

Answer 2

改成这样就可以了.自己琢磨一下就明白了.朋友.
Private Sub Command1_Click()
a = Val(InputBox("enter data a:"))
k = Val(InputBox("enter data k:"))
b = 0
i = 0
Do
q = a \ k
r = a Mod k
b = b + r * 10 ^ i
i = i + 1
a = q
Loop Until q = 0
Print b
End Sub

Answer 3

inputbox函数的问题。另外，你的程序将不会显示结果。你为什么要把End放在那里呢？你想想，你的用户按下按钮，程序获取了a和k的值，又进行了一系列计算，显示出了b的值，然后在肉眼无法捕捉的时间内执行了End函数结束了程序。也就是说你的用户将来不及看到结果程序就结束了。

Answer 4

你的源码书写的不规范
a , k = InputBox '这里出的错
改为这样你看看
a= input( "a = " ,"" )
k = InputBox ( "k = " ,"")

Answer 5

wbslchina5说得对，你的a未赋值，系统默认为0，0除以任何数都是0