当前位置 > 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