当前位置 > vb简单的程序代码vb简单的小程序代码
-
求一个VB简单程序代码
Private Sub Command1_Click()If Option1.Value = True Then Text3.Text = Val(Text1.Text) + Val(Text2.Text)ElseIf Option2.Value = True Then Text3.Text&nb...
2024-08-28 网络 更多内容 744 ℃ 247 -
求一个简单VB程序代码
Private Sub Command1_Click() Command1.Enabled = False Command2.Enabled = True Label1.Visible = True Form1.Caption = "单击“隐藏”按钮隐藏文字" End Sub Private Sub Command2_Click(...
2024-08-28 网络 更多内容 701 ℃ 642 -
一个简单的VB程序代码
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() End If End Sub Function getrnd() Dim j ...
2024-08-28 网络 更多内容 580 ℃ 673 -
求一个VB简单程序代码
以下程序可以运行,添加5个文本框用于显示,一个按钮。Private Sub Command1_Click()Dim val(1 To 60) As IntegerDim pass%, good%, i%, j%, temp%, sum%'输入60个学生的成绩For i = 1 To 60val(i) = InputBox("输入第" & i & "个学生的成绩:")'计算总成绩...
2024-08-28 网络 更多内容 128 ℃ 871 -
求一个VB简单程序代码
以下程序可以运行,添加5个文本框用于显示,一个按钮。 Private Sub Command1_Click() Dim val(1 To 60) As Integer Dim pass%, good%, i%, j%, temp%, sum% '输入60个学生的成绩 For i = 1 To 60 val(i) = InputBox("输入第" & i & "个学生的成绩:") '计算总...
2024-08-28 网络 更多内容 425 ℃ 683 -
求一个简单的vb程序代码
控件:shape两个,timer1个 Private Sub Timer1_Timer() Static a, b If Shape2.Left <= Shape1.Left Then a = 15 End If If ***.Top <= ***.Top Then b = 15 End If If Shape2.Left >= Shape1.Width + Shape1.Left Shape2.Width Then a = 15 End If If ***.Top >= Shape1.Height + ***.Top Shap...
2024-08-28 网络 更多内容 655 ℃ 135 -
求一个vb小程序代码(简单)!
清空回收站代码 Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" _ (ByVal hwnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long Private Declare Function SHUpdateRecycleBinIcon Lib "she...
2024-08-28 网络 更多内容 245 ℃ 862 -
求一个VB简单程序代码
以下程序可以运行,添加5个文本框用于显示,一个按钮。Private Sub Command1_Click()Dim val(1 To 60) As IntegerDim pass%, good%, i%, j%, temp%, sum%'输入60个学生的成绩For i = 1 To 60val(i) = InputBox("输入第" & i & "个学生的成绩:")'计算总成绩...
2024-08-28 网络 更多内容 680 ℃ 318 -
VB简易程序设计代码
Text1.Text = "程序设计第一步:设计界面" End Sub Private Sub Command2_Click() Text1.Text = "程序设计第二步:属性设置" End Sub Private Sub Command3_Click() Text1.Text = "程序设计第三步:编写代码" End Sub 题目三: Private Sub Command1_Click() Text1.PasswordChar = "*"...
2024-08-28 网络 更多内容 240 ℃ 580 -
用VB编写记事本简单程序
代码如下:Private Sub Command1_Click() '复制Clipboard.SetText Text1.SelTextEnd SubPrivate Sub Command2_Click() '剪切Clipboard.SetText Text1.SelTextText1.Se...
2024-08-28 网络 更多内容 615 ℃ 663
- 08-28vb简单的程序代码有哪些
- 08-28vb简单的程序代码是什么
- 08-28vb简单的程序代码怎么写
- 08-28vb程序代码怎么写
- 08-28vb程序代码大全
- 08-28vb简单编程代码
- 08-28vb简单代码编程实例
- 08-28vb编程常用代码大全
- 08-28vb编程序
- 08-28vb编程入门代码
- 新的内容