vb语言写代码（用VB写一段代码）

本文目录

• 用VB写一段代码
• 如何写VB代码
• VB语言 编写一个程序
• vb程序代码怎么写

用VB写一段代码

Dim a(1 To 5)Private Sub Command1_Click()Max = "0,0"Open "D:\score.txt" For Input As #1For l = 1 To 5Line Input #1, a(l)T = Split(a(l), vbTab)For I = 1 To 6 For J = I + 1 To 7 If Val(T(I)) 》 Val(T(J)) Then temp = T(I): T(I) = T(J): T(J) = temp Next JNext IFor I = 2 To 6Sum = Sum + Val(T(I))NextPrint T(0) & ":" & Sum / 5 * Val(T(8))If (Sum / 5) * Val(T(8)) 》 Val(Split(Max, "!")(0)) Then Max = (Sum / 5) * Val(T(8)) & "!" & T(0)Sum = 0NextPrint Split(Max, "!")(1)End Sub

如何写VB代码

Option ExplicitPrivate Type tongxunlu ’声明自定义变量 Name As String * 8 Sex As String * 2 Address As String * 16 Tel As String * 11End TypeDim a As tongxunluPrivate Sub Command1_Click() ’添加按钮 Dim i As Integer For i = 0 To 3 If Text1(i).Text = "" Then MsgBox ("不能为空") Text1(i).SetFocus Exit Sub End IfNext i a.Name = Text1(0)a.Sex = Text1(1)a.Tel = Text1(2)a.Address = Text1(3)Open App.Path & "\book.txt" For Append As #1Write #1, a.Name, a.Sex, a.Tel, a.AddressClose #1MsgBox ("添加成功")End SubPrivate Sub Command2_Click() ’显示按钮Picture1.ClsOpen App.Path & "\book.txt" For Input As #1Dim strtemp As StringDo While Not EOF(1)Input #1, a.Name, a.Sex, a.Tel, a.AddressPicture1.Print "姓名：" & a.NamePicture1.Print "性别：" & a.SexPicture1.Print "电话：" & a.TelPicture1.Print "地址：" & a.AddressPicture1.Print:LoopClose #1End Sub

VB语言 编写一个程序

将下列代码复制到一个文本文件，并将文本文件命名为Form1.frm，然后运行（我不知道你要取消按钮的用途）VERSION 5.00Begin VB.Form Form1 Caption = "Form1" ClientHeight = 4035 ClientLeft = 60 ClientTop = 450 ClientWidth = 5310 LinkTopic = "Form1" ScaleHeight = 4035 ScaleWidth = 5310 StartUpPosition = 3 ’窗口缺省 Begin VB.TextBox Text1 BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 ’False Italic = 0 ’False Strikethrough = 0 ’False EndProperty Height = 465 Left = 1920 TabIndex = 3 Top = 240 Width = 2175 End Begin VB.CommandButton Command2 Caption = "取 消" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 ’False Italic = 0 ’False Strikethrough = 0 ’False EndProperty Height = 615 Left = 3000 TabIndex = 1 Top = 2400 Width = 1455 End Begin VB.CommandButton Command1 Caption = "确 定" Default = -1 ’True BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 ’False Italic = 0 ’False Strikethrough = 0 ’False EndProperty Height = 615 Left = 720 TabIndex = 0 Top = 2400 Width = 1455 End Begin VB.Label Label3 BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 ’False Italic = 0 ’False Strikethrough = 0 ’False EndProperty Height = 375 Left = 1800 TabIndex = 5 Top = 1080 Width = 2295 End Begin VB.Label Label2 Caption = "八位号" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 ’False Italic = 0 ’False Strikethrough = 0 ’False EndProperty Height = 495 Left = 480 TabIndex = 4 Top = 1080 Width = 1215 End Begin VB.Label Label1 Caption = "姓 名" BeginProperty Font Name = "宋体" Size = 14.25 Charset = 134 Weight = 400 Underline = 0 ’False Italic = 0 ’False Strikethrough = 0 ’False EndProperty Height = 375 Left = 480 TabIndex = 2 Top = 360 Width = 1215 EndEndAttribute VB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalsePrivate Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As LongPrivate Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As LongPrivate Sub Command1_Click()If Text1 = "" Then MsgBox "请输入名字！" Text1.SetFocus Exit SubEnd IfRandomizeCF:Label3 = LTrim(Str(Int(Rnd() * 100000000)))Label3 = String(8 - Len(Label3), "0") & Label3Open "D:\花名册\花名册.txt" For Input As #1Do While Not EOF(1) Input #1, strzc If strzc = "" Then GoTo TG k = Split(strzc, " ") If k(1) = Label3 Then Close #1 GoTo CF End If If k(0) = Text1 Then w = MsgBox("输入的姓名已经存在，点“是”保存，点“否”放弃。", vbYesNo, "提示") If w = 7 Then Close #1 Exit Sub End If End IfLoopTG:Close #1Open "D:\花名册\花名册.txt" For Append As #1Print #1, Text1 & " " & Label3 & " " & Format(Now, "yyyy年mm月dd日hh:nn:ss")Close #1Text1.SelStart = 0Text1.SelLength = Len(Text1)End SubPrivate Sub Form_Load()If Dir(App.Path & "\MyTime.INI") = "" ThenMkDir "D:\花名册"Open "D:\花名册\花名册.txt" For Append As #1Close #1End IfA = WritePrivateProfileString("TIP", "START", Time$, App.Path & "\MyTime.INI")ShowText1.SetFocusEnd Sub ***隐藏网址***

vb程序代码怎么写

private sub Form_Load()lable1.backcolor = vbblacklable1.forecolor = vbwhitelabel1.caption = "世界真奇妙"end subprivate sub red_click()label1.forecolor = vbredend subprivate sub yellow_click()label1.forecolor = vbyellowend subprivate sub end_click()endend sub还原的代码就是Load里面的代码，不写了，手机写不方便