当前位置 > vb代码编程实例vb代码编程实例详解

• 

  vb代码编程

  1)Private Sub Command1_Click()  Dim i As Long, j As Long, s As Long  List1.Clear  For i = 10 To 99    For j = 0 To 99      k = 10001 * i + j * 100      If k Mod 11 = 3 Then        List1.AddItem k

  2024-08-27 网络 更多内容 967 ℃ 501
• 

  常用vb的编程代码

  先在程序中加一个Label,名字应该符合VB程序控件命名规范: lbl<名称> 再加一个Timer控件,名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_Load() On Error Resume Next Me.Font = "Arial" Me.FontSize = 24 Me.FontBold = True <Timer控件名>.En...

  2024-08-27 网络 更多内容 834 ℃ 191
• 

  vb编程代码

  先在程序中加一个Label,名字应该符合VB程序控件命名规范: lbl<名称> 再加一个Timer控件,名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_Load() On Error Resume Next Me.Font = "Arial" Me.FontSize = 24 Me.FontBold = True <Timer控件名>.Enabled = Tru...

  2024-08-27 网络 更多内容 101 ℃ 515
• 

  VB编程 代码

  Sub a() aa = InputBox("请输入字符串", "") r = 0 lett = "" ab = Split(aa, " ", 1, vbTextCompare) For u = 1 To UBound(ab) ss = Len(ab(u)) s = 0 For i = 1 To ss If Mid(ab(u), i, 1) = "a" Then s = s + 1 End If Next i If s > r Then r = s lett = a...

  2024-08-27 网络 更多内容 477 ℃ 502
• 

  求vb编程代码

  Private Sub Command1_Click() MsgBox "您的用户名是:" & Text1.Text & vbCrLf & "您的密码是:" & Text2.Text End Sub Private Sub Form_Load() Text1.MaxLength = 8 Text2.PasswordChar = "*" Command1.Caption = "登录" End Sub 你说的“用户名中所有字符与硬...

  2024-08-27 网络 更多内容 650 ℃ 227
• 

  VB编程代码都有哪些?

  1.数值型函数:abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 1;判断数值正负hex(num): 返回十六进制值 直接表示:&Hxx 最大8位oct(num): 返回八进制值 直接表示:&Oxx 最大8位sqr(num): 返回平方根 num>0int(num): 取整 int(99.8)=99; int(99.2)=100fix(num): 取...

  2024-08-27 网络 更多内容 417 ℃ 535
• 

  求一个vb编程代码

  教师数:n,评分数据数组(范围1n):t(n) 学生数:m,评分数据数组(范围1m):p(m) ============================================ 以下是单个选手评分结果代码: dim p as string dim i as integer dim j as integer dim a as single dim s as single s=0 i=0 p=inputbox("请输入老师的评分,点取...

  2024-08-27 网络 更多内容 449 ℃ 737
• 

  VB6.0 编程题求代码

  Private Sub Form_Load()Dim AX As IntegerList1.Columns = 15For i = 0 To 14 List1.List(i) = 3 + 7 * i AX = AX + Val(List1.List(i))Next iList1.Text = List1.List(i)Label1.Caption = "等差数列各项之和为:" & vbCrLf & AXEnd Sub 如果等差数列的项数不确定,可以用下面的程序:Priva...

  2024-08-27 网络 更多内容 609 ℃ 742
• 

  vb的编程代码急用!

  Option Explicit Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim d(1 To 60) As Integer Dim x As Integer Randomize For i = 1 To 60 d(i) = Int((900 600 + 1) * Rnd + 600) Next i For i = 1 To 59 For j = i + 1 To 60 If d(i) > d(j) Then x = d(i) d(i) = d(j) d(j) = x End If Next j N...

  2024-08-27 网络 更多内容 258 ℃ 625
• 

  VB编程写代码

  Private Sub Command1_Click() a = Val(InputBox("请输入单价:", 货物单价)) b = Val(InputBox("请输入数量:", 货物数量)) Label1.Caption = "总价:" & a * b End...

  2024-08-27 网络 更多内容 337 ℃ 224