当前位置 > vb编程教程vb编程教程入门视频

• 

  vb程序设计教程答案

  Private Sub Text1_Change()If Text1.Text <> "" ThenIf Asc(Text1.Text) >= 65 And Asc(Text1.Text) <= 90 ThenText2.Text = Chr(Asc(Text1.Text) + 32)ElseIf Asc(Text1.Text) >= 97 And Asc(Text1.Text) <= 122 ThenText2.Text = Chr(Asc(Text1.Text) 32)End IfEnd IfEnd S...

  2024-07-24 网络 更多内容 158 ℃ 581
• 

  VB编程好学吗?

  VB全称 Visual Basic,即初学者通用符号指令代码。VB全称 Visual Basic,即初学者通用符号指令代码。所以,看上去它就是给初学者准备的。VB入门很容易,只要懂一定的语言规则,基本的Basic的语句以及函数,做一些界面设计是很快的。但是慢慢你就会发现在VB框外的东西很难实现,不...

  2024-07-24 网络 更多内容 524 ℃ 771
• 

  VB编程。

  emp\female.txt" For Input As #1中的 For Input As #1是什么意思? 3、seek是什么命令? 4、MaxSize = LOF(1)中的lof(1)是哪里来的,什么意思? 5、程序中几次出现的#1是什么东西? 6、最后的那个eof(1)是什么意思? 提问时间: 20060813 18:28:33 回答:oldt888 学弟 8月13日 1...

  2024-07-24 网络 更多内容 934 ℃ 301
• 

  vb程序设计教程答案

  Option Explicit Private Sub Command1_Click() Dim a() As Integer Dim i, j, n ReDim a(9, 9) For i = 1 To 8 Print Tab(25 i * 2); For j = 1 To i a(i, 1) = 1 a(i, i) = 1 a(i + 1, j + 1) = a(i, j) + a(i, j + 1) Print a(i, j); Next j Print Next i End Sub

  2024-07-24 网络 更多内容 914 ℃ 890
• 

  vb程序设计

  Form1代码: Private Sub Command1_Click() If Text1.Text = "" Or Text2.Text = "" Then MsgBox "请输入用户名" Else If Text1.Text = "user" Or Text2.Text = "12345" Then MsgBox "你是合法用户,欢迎使用" ***.Show Else Ms...

  2024-07-24 网络 更多内容 509 ℃ 94
• 

  vb 程序设计

  Private Sub Command1_Click() Dim x(9) As Integer Dim i As Integer Dim temp As Integer For i = 0 To 9 Randomize x(i) = Int(Rnd * 200) 100 Next For i = 0 To 9 If x(0) < x(i) Then temp = x(i) x(i) = x(0) x(0) = temp End If If x(9) > x(i) Then temp = x(i) x(i) = x(9) x(9) = temp End If Next For i ...

  2024-07-24 网络 更多内容 309 ℃ 705
• 

  vb编程…

  只要在窗体中做二个标签(要改名为Lbl1、Lbl2),二个文本框、一个命令按钮,然后复制以下代码就成了: Private Sub Command1_Click() Text1 = InputBox("请输入身高", "输入") Text2 = InputBox("请输入体重", "输入") End Sub Private Sub Form_Load() Lbl1.Caption = "身高" Lbl2.Caption =...

  2024-07-24 网络 更多内容 601 ℃ 933
• 

  vb程序设计

  Private Sub Timer1_Timer()h = Hour(Now)If h = 8 Or h = 9 Then Me.Caption = "早上好"ElseIf h = 11 Or h = 12 Then Me.Caption = "中午好"ElseIf h >= 18 And h <= 23 Then Me.Caption = "晚上好"End IfEnd Sub

  2024-07-24 网络 更多内容 452 ℃ 157
• 

  VB编程写代码

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

  2024-07-24 网络 更多内容 702 ℃ 163
• 

  用vb编程

  Private Sub Command1_Click() Dim a, b a = Val(InputBox("请输入商品薯困价格")) b = Val(InputBox("请输入会员积分饥返")) Select Case b Case 1000 To 1999 a = a * 0.9 Case 2000 To 2999 a = a * 0.85 Case 3000 To 4999 a = a * 0.8 Case 5000 To 8999 a = a * 0.75 Case Is >烂手...

  2024-07-24 网络 更多内容 811 ℃ 686