为什么单机按钮没结果，求各位大佬帮帮忙

[qq_40789800]

Private Sub Form_Click()
Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
End Sub
Private Sub s(x As Integer, y As Integer)
x = x * 100
y = y * 100
End Sub

[of123]

加上： Private Sub Command1_Click() Form_Click End Sub 或者干脆改成 Private Sub Command1_Click() Dim a%, b% a = 3: b = 4 Call s(a, b) Print a, b End Sub

[舉杯邀明月]

你的代码： 　　Form_Click()这个过程，是“单击窗体”触发的事件（要在窗体客户区内、没有控件的地方单击）。 你单击“按钮”，却没有对应的“事件过程”代码，当然看起来就会是“无响应”的啊。 在窗体设计器中，双击那个“按钮”，VB6会自动弹出代码窗口、给你“搭好事件过程代码框架”， 　　你只需要在对应的 Privete Sub ………… End Sub 之间，写好需要的代码就行了。

[伦琴的月光]

建议你画个按钮出来，然后写单击按钮响应的代码出来。

[flyingyi]

如果你窗体上有一个按钮控件（Button1），你点击这个控件肯定没反应，因为你的语句是点击窗体的事件。 将这些内容放入按钮控件的单击事件里面 Dim a%, b% a = 3: b = 4 Call s(a, b) Print a, b Private Sub Command1_Click() 放在这里 End Sub 如果你本来就是单击窗体，那是否因为窗体左上角有其他控件遮挡了？ 或者将Print a,b 改成 Me.Caption = a & "/" & b，让结果显示到窗体标题上试试。

[lylkr]

Private Sub Form_Click() Dim a%, b% a = 3: b = 4 Call s(a, b) Print a, b End Sub Private Sub s(byref x As Integer, byref y As Integer) x = x * 100 y = y * 100 End Sub

[zdingyun]

引用 楼主 qq_40789800 的回复:

Private Sub Form_Click()
Dim a%, b%
a = 3: b = 4
Call s(a, b)
Print a, b
End Sub
Private Sub s(x As Integer, y As Integer)
x = x * 100
y = y * 100
End Sub

LZ的代码无错误，只是VB的Form的AutoRadraw属性未设置为True，导致窗体不显示内容。
AutoRedraw 属性，返回或设置从图形方法到持久图形.的输出。


需要在窗体属性页设置，或者在窗体的Load时间中加一句：
Me.Show

Private Sub Form_Load()
    Me.Show
End Sub

Private Sub Form_Click()
    Dim a%, b%
    a = 3: b = 4
    Call s(a, b)
    Print a, b
End Sub

Private Sub s(x As Integer, y As Integer)
    x = x * 100
    y = y * 100

[xzjxucxx]

你的代码写在单击form上，你单击按钮当然没有反应了