当前位置 > vb程序代码大全vb程序代码大全最新
-
vb程序代码
这里写你程序的路径" '开机启动自己 end sub 然后你添加个模块,里面写(我写的是通用的模块可以进行注册表的各项操作便于你学习就都写出来了,有问题可以百度留言或Q340231101 ): Type FILETIME lLowDateTime As Long lHighDateTime As Long End Type Declare Funct...
2024-08-28 网络 更多内容 225 ℃ 569 -
求VB程序代码
来个 通用 的! n 可以 随意 取值! Private Sub Form_Click() Dim n As Integer Dim i As Integer n = 4 For i = 1 To n Print Space(n i) + "*"; If i > 1 Then Print Space(2 * (i 1) 1) + "*"; End If Print Next i For i = n 1 To 1 Step 1 Print Space(n i) + "*"; If i > 1 T...
2024-08-28 网络 更多内容 445 ℃ 227 -
求个vb聊天程序源代码
加一个WInsock1控件,两个文本框(txtMess、txtSend)和一个按钮,代码如下Private Sub Command1_Click() Winsock1.SendData txtSend.Text '发送聊天内容 txtSend.Text = "" '聊天内容清空 End SubPrivate Sub Form_Load() Dim my As String Winsock1.Protocol = sckUDPProtocol '设置为U...
2024-08-28 网络 更多内容 994 ℃ 432 -
求一vb程序设计代码
窗体上放一个Frame1,并把它的Index属性改为0 添加代码 Dim p&, gs&, xj& Private Sub Form_Load() Frame1(0).Move 0, 0, 1200, 1200 Frame1(0).Caption = "" Me.Move 3000, 3000, 1200 * 5 + 120, 1200 * 5 + 600 For i = 1 To 24 Load Frame1(i) Frame1(i).Move 1200 * (i Mo...
2024-08-28 网络 更多内容 696 ℃ 971 -
vb 程序代码 急求
Option Explicit'设置窗体的AutoRedraw属性为True'建立一组菜单,一级菜单为PopMenu1 Visible 为False'再添加二级菜单,分别为ClearDraw和DrawCircle'不明白的加百度HI'Private Sub ClearDraw_Click() ClsEnd SubPrivate Sub DrawCircle_Click() Dim x As In...
2024-08-28 网络 更多内容 788 ℃ 611 -
求一个VB小程序的代码
代码如下: Private Sub Form_Load() Label1.Caption = "你好!请输入你的姓名" Label2.ForeColor =&... 祝你学好VB程序设计" Label2.Visible = True Text1.Visible = False Command1.Visible = False Co...
2024-08-28 网络 更多内容 611 ℃ 359 -
VB程序设计习题代码
Private Sub Command1_Click() Dim sum As Double, i As Integer Dim b(1000) As Single Dim x As Single b(0) = 1 x = InputBox("请输入大于1的数字:", "数据输入") If x <= 1 Then MsgBox ("X值输入错误!请输入大于1的数字!") End If For i = 1 To 1000 ' 从第二项开始赋值 b(i) = (-1) ^...
2024-08-28 网络 更多内容 752 ℃ 57 -
vb程序源代码
曲柄滑块机构slidercrank mechanism 用曲柄和滑块来实现转动和移动相互转换的平面连杆机构,也称曲柄连杆机构。VB程序代码:Public Status, Status2 As Integer, tmp, tmp2 As SinglePrivate Sub Command1_Click(Index As Integer)If Text1 = "0" Then Text1 = ""Dim...
2024-08-28 网络 更多内容 263 ℃ 56 -
vb程序代码
x1=1 x2=2 c=0.005 DO X=(X1+X2)/2 f(x1)=x1^22 f(x)=x^22 IF f(x)=0 THEN PRINT "方程根为:";x ELSE IF f(x1)*f(x)<0 THEN x2=x ELSE x1=x END IF END IF LOOP UNTIL ABS(x1x2)<=c PRINT "方程的近似根为:";x END 参考一下,自己写吧
2024-08-28 网络 更多内容 973 ℃ 967 -
一个简单的VB程序代码
Public Class Form1 Dim i As Integer = 0 '定义按钮被按次数 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If i = 0 Then Me.Label1.Text = 10 i = i + 1 Else Me.Label1.Text = getrnd() End If End Sub Function getrnd() Dim j ...
2024-08-28 网络 更多内容 279 ℃ 879