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里面的代码,不写了,手机写不方便
更多文章:
傅里叶级数和傅里叶变换的关系(一、连续函数傅里叶级数与傅里叶变换)
2024年6月29日 11:22
matlab中strtok函数(strtok函数第一个参数问题)
2024年7月25日 22:25
gets函数通过不了编译(visual studio中gets_s函数有什么要注意)
2024年7月14日 16:28
ps激活账户和序列号免费(谁知道photoshop的序列号和激活码)
2023年11月12日 04:00
廖雪峰的网站(廖雪峰的官方网站有python后端开发相关知识吗)
2024年7月24日 09:57
python treeview控件使用详解(python中tkinter treeview如何获取选中的条目)
2024年8月10日 14:30
spring框架的看法(java中的spring框架是一个怎么样的框架, 在android开发当中有没有应用到呢)
2024年10月15日 12:30
security center翻译(center的中文翻译)
2024年6月30日 04:23
jquery拖拽插件(div拖拽缩放jquery插件编写——带8个控制点)
2024年7月15日 09:08
8位二进制转换器(A/D转换器输出为8位二进制数,输入信号最大值为5V,那么这个转换器应能区分出输入信号的最小电压为多少)
2024年6月26日 19:34