vb6.0简单编程实例
闾茅徐1151VB6.0编程代码 -
朱京券17334217497 ______ im a(100) 'a()数据'此处来赋值 Dim b(5) For i = 0 To 99 If a(i) < 6 Then b(0) = b(0) + 1 Else b(Int(a(i) - 5)) = b(Int(a(i) - 5)) End If Next i Print ＂<6.00＂, ＂6~6.99＂, ＂7~7.99＂, ＂8~8.99＂, ＂9~9.99＂ For i = 0 To 4 Print b(i),Next i
闾茅徐1151使用vb6.0编程调用Halcon软件中的一个程序,求教众大神怎么编程? -
朱京券17334217497 ______ 简单百度了下,Halcon 是一套函数库,那么应该会提供包含DLL或者Ocx文件的一套文件,在VB里引用就可以直接在你的程序里创建对象(菜单:工程-引用),具体参考官方的文档(如果有的话) shell 只是启动exe文件而已,就跟你双击exe文件效果是一样的,并不能融合到你的程序里去,比如启动记事本(因为是系统工具,不需要提供详细的路径):shell ＂notepad＂
闾茅徐1151超级简单的VB编程
朱京券17334217497 ______ Private Sub Form_Load() Show Dim a As Single, b As Single, c As Single a = Val(InputBox(＂输入三角形三边的长＂)) b = Val(InputBox(＂输入三角形三边的长＂)) c = Val(InputBox(＂输入三角形三边的长＂)) If a + b > c And a + c > b And b + c > a Then MsgBox ＂能构成三角形＂ Print ＂周长是:＂ & a + b + c Else MsgBox ＂不能构成三角形＂ End If End Sub
闾茅徐1151急求vb6.0编写程序题(1)编写程序,从键盘输入一个三位的正整数,计算并输出这个三位数的逆序数,如输入581,输出185. (2)编写程序,根据从键盘输... -
朱京券17334217497 ______[答案] 1. Private Sub command1_click() Dim a As Integer, b As Integer a = CInt(InputBox(＂输入一个三位的正整数＂)) If a >= 100 And a b = (a Mod 10) * 100 + (a \ 10 Mod 10) * 10 + a \ 100 MsgBox b Else MsgBox ＂输入有误!＂ End If End Sub 2. Private ...
闾茅徐1151VB6.0基础教程学习?????? -
朱京券17334217497 ______ 原发布者:地球木乃伊 计算机等级考试二级VB基础教程1.1 VisualBasic概述1.VisualBasic是什么 VisualBasic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言. “Visual”指的是开发图形用户界面(GUI)的方法——...
闾茅徐1151用VB6.0做一个简易的小程序.当作业,要算分数的.跪求高手 -
朱京券17334217497 ______ 如果是练习题那么建议你自己试着写写代码.如果直接把代码告诉你那不是帮助你而是害你. 给你个方法: 先在界面上放置一个textbox控件用于输出结果 然后拖出相应的按钮0~9,+-*÷= ms mr mc m+之类的. 界面参照自带计算器. 代码就是按数字的按钮就往textbox里添加数字.按运算符的就是保存textbox里的内容到变量中(或者根据保存记录运算中间结果)并清空textbox且记录下次运算的运算符.按等号按钮就是运算结果并输出到textbox中.其他按钮你根据实际情况做相应处理就好. 编程需要多练练的. 你可以把自己写的代码弄上来叫人家帮你改错但是最好不要跪求现成的代码.这样根本学不会的.
闾茅徐1151VB编写简易计算机程序实例
朱京券17334217497 ______ 简易计算器 http://wenwen.soso.com/z/q29028948.htm?w=VB%D7%F6%BC%C6%CB%E3%C6%F7&spi=1&sr=2&w8=VB%E5%81%9A%E8%AE%A1%E7%AE%97%E5%99%A8&qf=10&rn=99&qs=4
闾茅徐1151有谁能给我找个VB编程的简单示例?
朱京券17334217497 ______ 窗体上显示学习VB程序,和单击command1会显示你好,欢迎你学习VB程序! private sub form_load() form1.caption=＂学习VB程序” end sub private sub command1_click() command1.caption=”欢迎你学习VB” end sub
闾茅徐1151vb简单编程
朱京券17334217497 ______ Private Sub Command1_Click() Text1.Alignment = 0 End Sub Private Sub Command2_Click() Text1.Alignment = 2 End Sub Private Sub Command3_Click() Text1.Alignment = 1 End Sub ----------- 0是靠左 1是靠右, 2是居中