当前位置 > vb6.0编程vb6.0编程入门教程

• 

  求解VB编程(VB6.0)

  新建3个按钮、1个图片框(PictureBox),1个文本框。初始设置已经设好了、可以直接看结果 代码如下 Private Sub Command1_Click() Command2.Visible = True Text1.Visible = True Command1.Visible = False Command3.Visible = True DoEvents Text1.Text = "" Text1.SetFo...

  2024-08-27 网络 更多内容 400 ℃ 284
• 

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

  VB6.0

  VB需要显式定义,所以看函数返回类型,然后定义一个CC类型这样就可以了还有上面定义DLL要么放在模板里面如果放在窗体里面需要放在最上面把PUblic 改成Private

  2024-08-27 网络 更多内容 428 ℃ 952
• 

  vb 网络编程

  Dim S As String Dim ss As String Dim i As Integer Dim recUser As String Dim senUser As String Dim senIP As StringsckServer(index).GetData S '接收信息到 s If userState(index) = 0 Then '如果是刚进来,winsock尚未使用的话 senUser = Trim(S) senIP = sckServer(index).Rem...

  2024-08-27 网络 更多内容 678 ℃ 670
• 

  vb程序设计

  = 60 Then moreSixty = moreSixty + 1 End If sum = sum + stuScore(i) List1.AddItem ("学号:" & stuNo(i) & Space(8) & "成绩:" & stuScore(i) & "分") Next i avg = sum * 1# / 50 For i = 1 To 50 If stuScore(i) >= avg Then more = more + 1 Else If stuScore(i) <...

  2024-08-27 网络 更多内容 983 ℃ 680
• 

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

  VB编程好学吗?

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

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

  vb编程…

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

  2024-08-27 网络 更多内容 175 ℃ 271
• 

  VB编程题?

  Private Sub Command1_Click()  Dim a()  a = Array(54, 67, 2, 46, 24, 64, 68, 25)  For i = 0 To 6    k = i    For j = i + 1 To 7      If a(j) > a(k) Then k = j    Next j    t = a(i)    a(i) = a(k) ...

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

  VB 6.0

  如果要用到inputbox,输入数据时回显是乱码,但数据传输没有问题,回复正常的。这个是vb的bug,要安装补丁版本应该低于SP5,更新成SP5以上的版本应该可以解决问题,现在最高好像是SP6

  2024-08-27 网络 更多内容 739 ℃ 82