srkp.net
当前位置:首页 >> vB6.0简单编程实例 >>

vB6.0简单编程实例

(1)打开VB6.0 IDE,加载你的工程,单击“外接程序”菜单下的“外接程序管理器”。 (2)在弹出的窗体中选择“打包和展开向导”(最后一项),在加载行为中选择“加载/卸载”,确定。 (3)再次单击“外接程序”菜单项,单击“打包和展开向导”。 (4)单击“打包”,...

图片中没显示结果显示在哪,我就将结果在text3中输出,具体代码如下,有疑问,可追问: Private Sub Form_Load() Combo1.AddItem "+" Combo1.AddItem "-" Combo1.AddItem "*" Combo1.AddItem "/" End Sub Private Sub Command1_Click() If Combo...

Private Sub Command1_Click() If Check1.Value = 1 And Check2.Value = 1 Then Text1.Text = "白芷、茯苓" End If If Check1.Value = 1 And Check3.Value = 1 Then Text1.Text = "麻黄、桂枝" End If If Check2.Value = 1 And Check3.Value = 1...

兄弟,VB6.0代码脱离不了事件。也就是说,你的代码光秃秃一片,不放在某个事件里面是不行的。 这样修改就可以了。 Private Sub Form_Load() MsgBox "你好" End Sub

Private Sub Command1_Click() Me.Cls Call gcd(10) End Sub Function gcd(ByVal sl As Long) Dim j As Long, n As Long, nn(10) As Long, k As Long, mm As Long mm = 200 For j = 1 To sl Randomize nn(j) = 20 + Rnd() * 180 If mm >= nn(j)...

Private Sub Form_Click()Dim a(2, 2) As Integer, b(2, 2) As IntegerDim i As Integer, j As IntegerDim n1 As Integer, n2 As IntegerFor i = 0 To 2 For j = 0 To 2 a(i, j) = Int(Rnd * 10) Print a(i, j); " "; Next PrintNextFor i = 0 T...

将下面的代码复制到代码窗口中,F5运行后,你用鼠标点一下窗体 Private Sub Form_Click() '此代码演示了在窗体上打印一个9*9的乘法口决表 form1.autoredraw=true '设置窗体自动重绘 for i=1 to 9 '输出9行 for j=1 to i '输出列,第几行就输出几列 ...

打开vb软件,点击“帮助”---“索引”,输入“MSChart 控件”,点击“实例”,即可完成你相关的代码。

你点调试 看黄色错误行 在哪一行代码上 检查该代码所写的控件名称是否与你窗体上的一致

VB6本身的打包程序就是用VB6编写的,完整的VB6企业版提供有它的源程序,你拿来修改一下就行。

网站首页 | 网站地图
All rights reserved Powered by www.srkp.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com