vb初学者编程代码大全(vb初学者编程代码大全下载)
1、先在程序中加一个Label，名字应该符合VB程序控件命名规范lbllt名称 再加一个Timer控件，名字也要符合命名规范 在窗体代码对话框中打入 Private Sub Form_LoadOn Error Resume Next MeFont = quotArialquotMeFontSize = 24；控件image，picture，timer代码Dim x As Integer Dim y As IntegerPrivate Sub Form_Loadx = 100 y = 100 Timer1Interval = 100 End SubPrivate Sub Timer1_TimerIf imgTop = picHeight。
2、3 令X=”VB教程”LenX 输出结果为4 3 MidX函数读取字符串X中间的字符 格式P=MidX，n由X的第n个字符读起，读取后面的所有字符P=MidX，n，m由X的第n个字符读起，读取后面的m个字符；将你的textbox控件定义成数组控 件，然后运行以下代码Private Sub command1_click这 个是保存Text1的内容到本身目录 下Open AppPath \123txt For Append As 1 Print 1，Text10Text Print 1，Text11；Dim x10 As Integer， xMax As Integer， xMin As Integer Private Sub Form_ClickCls Randomize For i = 0 To 9 xi = Int100 + 100 * RndPrint xiNext xMax = x0 xMin = x0For i；在窗体上放置两个CommandButton，分别为Command1和Command2，代码如下Dim Die As Long， Zhi As LongPrivate Sub Command1_Click Dim x As Long， y As Long x = ValInputBoxquot请输入底数quot， quot输入quot。
3、变量名是a1和a2，TextBox名称也是a1和a2，当然会出错了 Sum = a1 + a2 实际上是Sum = a1Text + a2Text 把TextBox的名称或变量改一下就可以了；第一题Private Sub Form_ClickDim x As Double， Y As Double x = InputBoxquot请输入当前顾客购买鸡蛋的重量以公斤为单位quotIf x lt 3 Then Y = 76 * x Else Y = 76 * x * 08 End If Print；Sub aaa = InputBoxquot请输入字符串quot， quotquotr = 0 lett = quotquotab = Splitaa， quot quot， 1， vbTextCompareFor u = 1 To UBoundabss = Lenabus = 0 For i = 1 To ss If Midabu， i；Private Sub Command1_ClickDim a， b， c， d As Integer For a = 0 To 10 For b = 0 To 20 For c = 0 To 50 For d = 0 To 100 If 10 * a + 5 * b + 2 * c + d = 100 And a + b；这不是一两句能搞定的事情 去百度文库搜索vb基础，有很多教程可以学习 代码的解释，你可以通过安装MSDN Library Visual Studio 60 CHS这是Vb60的msdn，这个帮助已经很强大了vb有自己的命令关键字，语法，这是；学语言没有规则，需要就学，如果需要学VB或者ASP， Visual Basic 入门到精通或者ASP初级编程，外国人写的，简单实用；给几个写的模块给你看看 Public Function LoadDatastrSQL As StringDim rst As DAORecordset Dim ctl As Control Dim fld As Object Set rst = CurrentDbOpenRecordsetstrSQL， ， dbReadOnlyIf Not rstEOF Then。
4、Private Sub Command1_ClickDim x As Single， y As Single x = ValText1TextIf x lt 10 Then y = x 1 ElseIf x = 10 And x lt 20 Then y = 2 * x 1 ElseIf x = 20 Then y = 3；Private Sub Command1_ClickDim strA9 As String Dim i， s As Long s = 0 For i = 0 To 9 strAi = InputBoxquot请输入第quot i + 1 quot位同学成绩！quot， quot提示成绩为大写ABCDEquotIf Asc。
