当前位置 > 用vb做简单的软件用vb做简单的软件叫什么

• 

  用vb做个简单程序

  用函数来处理,调用一下就可以了 Call CheckErr 你要检测的数字 private sub CheckErr(inData) dim dblIN as double if isnumeric(inData) then msgbox "非数据类型" exit sub end if dblIN =val(inData) if round(dblIN ,0)<>dblIN then msgbox "不是整数" exit sub end if ...

  2024-07-24 网络 更多内容 741 ℃ 493
• 

  简单的vb小程序

  Private Sub Command1_Click() Static n As Integer n = n + 1 a = Text1.Text b = Text2.Text If a = "wanglili" And b = "12345" And n <= 3 Then MsgBox "欢迎您进入本系统!" n = 0 Else If n < 3 Then MsgBox "对不起您不能进入!请重新输入认证信息!...

  2024-07-24 网络 更多内容 967 ℃ 850
• 

  简单的VB小程序

  在窗体添加一个标签,一个计时器控件, Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 Label1.Caption = "字体随机变色" End Sub Private Sub Timer1_Timer() Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256) End Sub

  2024-07-24 网络 更多内容 861 ℃ 149
• 

  VB简单抽奖软件…

  最简单的一个:有100个人参与抽奖 ,序号1100 建一个窗体form1 在上面写一个command控件 一个label控件 一个timer控件1234567891011121314151617181920212223Private Sub Command1_Click()If Command1.Caption = "开始" ThenLab...

  2024-07-24 网络 更多内容 778 ℃ 753
• 

  vb简单程序怎么写

  Private Sub Command1_Click() Label1.Caption = Text1.Text Text1.Text = "" End Sub祝LZ装机愉快,请采纳!你的采纳就是我回答的动力!

  2024-07-24 网络 更多内容 443 ℃ 538
• 

  简单的VB语言程序。

  具体要求说的不明,需要什么控件?怎样的操作流程都没有说清楚?只好根据自己的想法写一个简单点的,然后你根据自己情况修改即可。代码如下:Private Sub Form_Load() Dim A As Integer, B As Integer, C As Integer Dim R As Integer, W As Integer, F As Integer Me.Show Me.AutoRedraw...

  2024-07-24 网络 更多内容 125 ℃ 359
• 

  vb简单程序··谢谢啊

  '建立8个command1至8 Private Type WorkerInf GH As String Name As String GZ As Single End Type Private Type StudentInf Name As String Numb As String Chin As Single Engl As Single Math As Single End Type Dim A As String, B As String Dim I As Integer, L As Integer, M As...

  2024-07-24 网络 更多内容 774 ℃ 522
• 

  一个简单的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-07-24 网络 更多内容 438 ℃ 444
• 

  求一个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-07-24 网络 更多内容 367 ℃ 46
• 

  求简单VB小程序实例

  VB趣味程序导学:http://down.***.cn/info/17072.aspx 另外,在这里可以找到很多:回 http://www.google.cn/search?hl=zhCN&q=%E8%B6%A3%E5%91%B3VB%E7%A8%8B%E5%BA%8F&meta=&aq=f&oq= 希望对你有答用!

  2024-07-24 网络 更多内容 551 ℃ 364