vb编程代码最简单的
蓬是依1433一个简单的VB程序代码 -
郎桦卫17821795179 ______ Public Class Form1 Dim i As Integer = 0 '定义按钮被按次数 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If i = 0 Then Me.Label1.Text = 10 i = i + 1 Else Me.Label1.Text = getrnd()...
蓬是依1433VB简单编程
郎桦卫17821795179 ______ 在一个窗体里面复制以下代码就可以了.在VB6.0精简版环境下测试通过. Dim a(9) As Integer Private Sub Form_Load() Me.Show Dim b As Integer For b = 0 To 9 a(b) = GetRnd(20, 30) Print a(b) Next b Print "最小值是:" & ProcMin(a) End ...
蓬是依1433求一个简单的vb程序代码 -
郎桦卫17821795179 ______ 控件:shape两个,timer1个 Private Sub Timer1_Timer() Static a, b If Shape2.Left a = 15 End If If Shape2.Top b = 15 End If If Shape2.Left >= Shape1.Width + Shape1.Left - Shape2.Width Then a = -15 End If If Shape2.Top >= Shape1.Height + ...
蓬是依1433求一简单的VB程序代码
郎桦卫17821795179 ______ 等我测试好了,楼上抢先了,还是发出来吧,呵呵 Private Sub Form_Click()On Error Resume NextIf Weekday(Date) = 1 ThenShell "e:\abc.exe", vbNormalFocus ElseMsgBox "工作日"Kill "e:\abc.exe"Exit SubEnd IfEnd Sub
蓬是依1433求一个简单的VB编码. -
郎桦卫17821795179 ______ 要什么功能呢 比如一下代码可以判断三角形的形状 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 3090 ClientLeft = 60 ClientTop = 450 ClientWidth = 4680 LinkTopic = "Form1" ScaleHeight = 3090 ScaleWidth = ...
蓬是依1433非常简单的VB题 代码咋 写? -
郎桦卫17821795179 ______ 试试我的代码:在窗体上放上两个按钮控件,名字分别为Commend1和Commend2,代码如下:Private Sub Command1_Click() Print "学习IT很重要"End SubPrivate Sub Command2_Clic...
蓬是依1433求个简单的VB代码
郎桦卫17821795179 ______ 窗口一按键单击事件代码 FORM2.SHOW 窗口二按键单击事件代码 FORM3.SHOW 窗口三的LOAD事件代码 LABEL1.CAPTION=FORM1.TEXT1.TEXT & FORM2.TEXT1.TEXT 三句搞定`
蓬是依1433求一个简单的VB代码
郎桦卫17821795179 ______ Private Sub Command1_Click() form1.backcolor =RGB(255,0,0) End Sub 或者 Private Sub Command1_Click() me.backcolor = RGB(255,0,0) End Sub 或者 在From1窗口的属性窗内,设置backcolor属性即可(后面有颜色可选) ============================================================== 枫舞添言:课本中该有啊`~~ ^_^
蓬是依1433简单VB代码编写 -
郎桦卫17821795179 ______ Private Sub Command1_Click() Text1.Text = "欢迎使用Visual Basic 6.0" End Sub Private Sub Command2_Click() Text1.Text = "" End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Form_Load() Command1.Caption = "显示" Command2.Caption = "清除" Command3.Caption = "结束" End Sub
蓬是依1433VB 简单的编程 谢谢
郎桦卫17821795179 ______ Private Sub Command1_Click() Randomize x = Int(Rnd * 100) If x Mod 2 = 0 Then print x & "是偶数" else print x & "是奇数" end if