几个简单的vb编程例子
VB6.0初学者的10个编程小技巧
VB注释程序代码的符号是“注释：”，只要在某行程序前面加上“注释：”，就可以注释该行程序。但如果程序代码很长的时候，一行一行地注释令人觉得难以忍受。VB本身提供了这个功能，在主菜单“视图”选项的“工具栏”下，选中Edit，VB的界面会出现一排工具按钮，其中的手形图标按钮后的两个按钮用于“设置...
VB:编程计算三角形面积
代码如下：Dim a!, b!, c!, s!, p!a = InputBox("请输入第一条边长")b = InputBox("请输入第二条边长")c = InputBox("请输入第三条边长")If a + b <= c Or b + c <= a Or c + a <= b Then Print "这样的三角形不存在"Else p = (a + b + c) \/ 2 s = ...
一道VB编程题
创建3个文本框，第一个输入年，第二个输入月，第三个输入日。用year(now),month(now),day(now)分别返回当前年月日。用year(now)-学生生日即可得到年龄，如果想要准确的周岁生日，再比较月，日就行了。用inputbox也可以 a=inputbox("输入学生生日-年"）b=inputbox("输入学生生日-月"）c=input...
vb编程实例 初学入门有些不懂,希望指教
添加一个文本框控件（text1）和一个命令按钮（command1）command1 下添加如下代码：以下是用for循环实现：Private Sub Command1_Click()Dim a, i As Long a = Val(Text1.Text)i = 2 For i = 2 To a - 1 If (a Mod i) = 0 Then Print a & " 这不是个素数"Exit For ElseIf i...
一道简单的VB编程题目
Private Sub command1_click()If Combo1.Text <> "" Then ats = 0 For i = 0 To Combo1.ListCount - 1 If Combo1.List(i) = Combo1.Text Then ats = 1 Exit For End If Next i If ats = 0 Then Combo1.AddItem Combo1.Text Combo1.SelStart = 0 Combo1.SelLength = Len(...
vb编程实例 求大神帮忙啊
Dim m(90) As IntegerDim Odd(90) As IntegerDim Even(90) As IntegerDim Prime(90) As IntegerPrivate Sub Command1_Click() Me.Cls Randomize Print "90个随机整数" For i = 0 To 89 m(i) = Rnd * 89 + 10 Print m(i); If i Mod 15 = 14 Then Print ...
求一vb编程,编写一个数组,将一个数据系列最后一个元素移动到第一个...
Dim temp1 As Integer, temp2 As Integer '定义2个临时变量temp1 = a(UBound(a)) '临时变量1...vb编程设计例题100例 vb语言 vb编程软件 vb编程入门 vb编程流程 vb编程有什么用 vb怎么编程
VB的两个编程实现!高手帮助!
1--添加3个文本框和一个命令按钮 其中text1显示字母个数 text2显示数字个数 text3显示其他个数 Private Sub Command1_Click()Dim s1 As Integer, s2 As Integer, s3 As Integer s = InputBox("请输入一段字符")For i = 1 To Len(s)Select Case Asc(Mid(s, i, 1))Case 65 To 90, ...
VB简易程序设计代码
题目一：Private Sub Text1_Change()Text2.Text = Text1.Text End Sub 题目二：Private Sub Command1_Click()Text1.Text = "程序设计第一步：设计界面"End Sub Private Sub Command2_Click()Text1.Text = "程序设计第二步：属性设置"End Sub Private Sub Command3_Click()Text1.Text = "...
用vb编程随机产生15个不重复的英文字母
给你一个完整程序吧：Dim c(1 To 15) As String Dim i As Integer, j As Integer, a As Integer Randomize Timer a = 65 + Int(Rnd * 26) + 32 * Int(Rnd * 2)c(1) = Chr(a)For i = 1 To 14 Do While True 'Not f a = 65 + Int(Rnd * 26) + 32 * Int(Rnd * ...
鹤山市三七回答： Private Sub Command1_Click() If Command1.Caption = \＂显示\＂ Then Text1.Text = \＂这是我的第一个VB程序\＂ Command1.Caption = \＂继续\＂ ElseIf Command1.Caption = \＂继续\＂ Then Text1.Text = \＂请你赐教,谢谢!\＂ Command1....
彭家13847827979问： vb简单程序有哪些?？
鹤山市三七回答： Private Sub Command1_Click() Dim a As String a = InputBox(＂请输入你的名字＂) MsgBox a & ＂你好!!!＂ End Sub
彭家13847827979问： 帮忙写几个简单的VB程序？
鹤山市三七回答： 先画三个command按钮如图: 第一题: Private Sub Command1_Click() '定义变量 Dim m, p, i pp = 1 '输入M的值 m = Val(InputBox(＂请输入M值:＂, ＂输入＂)) '计算 For i = 1 To m pp = pp * i Next i '输出 Print ＂1)m=＂ & m & ＂的阶乘为:...
彭家13847827979问： 关于几个简单的VB程序？
鹤山市三七回答： '第一题答案 Private Sub Form_Click() Dim s As Double Dim m As Integer m = InputBox(＂请输入一个整数:＂) s = 1 For i = 1 To m s = s * m Next i Print s End Sub '第二题答案 Private Sub Form_Click() i = 1 e = 1 Do Until 1 / jiecheng(i) < 10 ^ (-...
彭家13847827979问： 告诉我一些简单的vb编程代码 - ？
鹤山市三七回答： uEnd是用户定义捕捉VB输出框(MsgBox)按下按钮事件一个变量.即你的原代码 MsgBox ＂您确定要离开吗?＂, vbYesNo + vbQuestion, ＂离开程序＂执行按vbYes或vbNo按钮的结果...
彭家13847827979问： 简单的VB编程 - ？
鹤山市三七回答： Private Sub Command1_Click()'首先输入购买商品的数量和单价,按以下优惠条件计算实际付款额.'条件如下: 应付款'500Dim sPname As Integer Dim sValue As Integer Dim s As String Dim lResult As Long Dim lValue As Long Do sPname ...
彭家13847827979问： vb编程实例 - ？
鹤山市三七回答： 去百度文库,查看完整内容> 内容来自用户:可爱的小滨滨3 用VB编写一个密码解锁界面 我也是刚开始学VB语言,VB语言很强大,有别于其它语言,操作性很强,是很富有创造性的电脑语言.下面是我看了两天书后编写的一个小程序:功能是...
彭家13847827979问： 求一个简单vb编程实例~ - ？
鹤山市三七回答： 控件: image,picture,timer 代码: Dim x As Integer Dim y As Integer Private Sub Form_Load() x = 100 y = 100 Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() If img.Top >= pic.Height - img.Height Then y = -100 End If If img.Top <= 0 ...
彭家13847827979问： VB请高手设计一个简单的程序例子:()+()+()+()+()+ ？
鹤山市三七回答： 以下代码在VS2005环境中成功运行: Dim Tall(34) As Integer Dim i, SunAddTime As Integer Dim j As Integer For j = 1 To 35 Tall(j - 1) = j Next For i = 0 To Tall. Length - 1 ...
彭家13847827979问： 找个VB的简单例子,要代码？
鹤山市三七回答： '一个从1加到100的小代码: Private Sub Form_Click() For i = 1 To 100 s = s + i Next i Print s End Sub
