当前位置 > vb程序编程vb程序编程鸡兔同笼

• 

  vb程序设计

  VB是VisualBasic编程语言编写计算机程序需要使用计算机编程语言。计算机编程语言是人和计算机“对话”的桥梁。就像人类的语言一样,计算机编程语言也有很多。目前较为广泛使用的语言有“C”、“Pascal”、“Basic”等。在众多的计算机编程语言中,以BASIC语言最为易学易...

  2024-08-27 网络 更多内容 199 ℃ 67
• 

  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-08-27 网络 更多内容 993 ℃ 135
• 

  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-08-27 网络 更多内容 687 ℃ 143
• 

  VB程序设计

  使用 Timer 控件Timer 控件响应时间的流逝。它们独立于用户,编程后可用来在一定的时间间隔执行操作。此控件的一个一般用处是检查系统时... 示例程序:VERSION 5.00Begin VB.Form AlarmForm BorderStyle = 1 'Fixed Single Caption = "闹钟" ClientHeight = 780 ClientL...

  2024-08-27 网络 更多内容 247 ℃ 269
• 

  VB程序设计编程!

  click() command1.caption="复制" command2.caption="退出" text1.text="" text2.text="" end sub private sub command1_click() text2.text=text1.text end sub private sub command2_click() end end sub 这个程序可以运行了! 如果有什么问题请留言...

  2024-08-27 网络 更多内容 809 ℃ 35
• 

  关于VB程序设计

  Form1中的代码:'单击窗体1Private Sub Menu11_Click() Dim i As Integer Randomize For i = 1 To 15 List1.AddItem Int(500 * Rnd) '在列表框中产生500以内的随机数 Next iEnd Sub'单击退出Private Sub Menu12_Click() EndEnd Sub'单击窗体2Private Sub Menu2_Cli...

  2024-08-27 网络 更多内容 928 ℃ 588
• 

  vb程序设计

  Private Sub Command1_Click() Dim N As Integer N = Val(InputBox("请输入一个整数")) For i = 1 To N S = "" For j = 1 To i S = S + "*" Next j Print S Next i End Sub 看不懂题目在写什么,随便谢谢 s(n)是不能这样定义数组的 Private Sub Command1_Click() Dim N As Integer N = Val(Inpu...

  2024-08-27 网络 更多内容 297 ℃ 690
• 

  VB程序设计

  Dim Num() As Long Dim lCount As Long Function MaxNum() As Long Dim K As Long Dim lMax As Long For K = 0 To UBound(Num) If Num(K) > lMax Then lMax = Num(K) Next MaxNum = lMax End Function Function AveNum() As Single Dim K As Long Dim lSum As Long For K = 0 To...

  2024-08-27 网络 更多内容 481 ℃ 892
• 

  VB程序设计作业

  ‘仅供参考' 1:B 2:C 3:C 4:"我觉得这题又点矛盾,因为它四个答案里面都可以对图片框 赋值的,硬要选一个的话就选择C吧,原因,程序运行的时候剪切 板应该没有图片的,如果有的话必须是事先复制然后才可以赋 值"'C 5:D 6:D 7:B 8:C 9:b 10:A 11:1、 错  12:1、 错&nb...

  2024-08-27 网络 更多内容 536 ℃ 808
• 

  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-08-27 网络 更多内容 400 ℃ 118