当前位置 > vb编程教学vb编程教学高中

• 

  如何用vb编程画圆教学设计

   源程序可以在附件中下载! "横排画圆"按纽程序如下: Private Sub Command1_Click() Dim centerX, centerY As Integer Dim rad As Integer Dim i As Integer '定义并设置画圆的中心坐标(centerX,centerY)及半径 rad centerX = 100 centerY = 100 rad = 50 '循...

  2024-07-24 网络 更多内容 230 ℃ 542
• 

  VB编程好学吗?

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

  2024-07-24 网络 更多内容 736 ℃ 379
• 

  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 网络 更多内容 476 ℃ 829
• 

  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 网络 更多内容 748 ℃ 743
• 

  VB编程写代码

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

  2024-07-24 网络 更多内容 112 ℃ 35
• 

  用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 网络 更多内容 881 ℃ 165
• 

  vb 编程

  应该是缺少了该执行的对象或者事件比如Private Sub Form_Load()form就是对象,load()就是事件所以可以试这关闭代码窗口,重新双击控件

  2024-07-24 网络 更多内容 998 ℃ 732
• 

  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 网络 更多内容 107 ℃ 815
• 

  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 网络 更多内容 340 ℃ 309
• 

  VB编程怎么做?

  第2题:Private Sub Command1_Click()na = InputBox("请输入du姓名zhi")age = InputBox("请输入年龄")ad = InputBox("请输入通讯地dao址")code = InputBox("请输入邮政编内码")num = InputBox("请输入电话容号码")Print "&quo...

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