tnfh.net
当前位置:首页 >> VB代码详细讲解 >>

VB代码详细讲解

1. for to 表示执行52次 Label2.Caption = Label2.Caption & Str(10 + Int(Rnd * 90)) Next i 自动把变量i+1,直到等于52为止; 2. 字符串连起来,如"A"&"B"=AB; 3.timer是个时间控件,60 为60毫秒运行一下里面的代码。

你这问题不能叫解释,只能叫翻译。 VB的代码就是读简单的英语文章。 例如 Private Sub Form_Load() 窗口加载 Me.Caption = "简易浏览器" 标签 Label1.Caption = "地址: " 标签 Combo1.Text = "" 组合菜单 Combo1.Top = Label1.Height + Toolbar1...

Public Function CreateShortCut(sName As String) '自定义函数 Dim strDesktop As String ‘定义变量 Dim oShellLink As Object ‘定义变量 Set WshShell = CreateObject("WScript.Shell") '调用脚本宿主WScript 对象 strDesktop = WshShell.Spec...

1Dim a(4), i, b As Single声明变量i,b和数组a,数组a有5个成员分别是0,1,2,3,4 2 For i = 1 ToLen(TextBox1.Text) 循环至i=1到textbox的长度 3 Select CaseMid(TextBox1.Text, i, 1) 筛选 取TEXTbox中间1个 4 Case "a"To "z" 如果结果是a到...

总得来说,应该是根据学生的前三个成绩,进行求平均成绩什么的 然后求平均成绩的总和 并将得到的值赋于学生中的这些对应的字段,并显示这个学生的成绩情况 Private Sub Form_Load() Dim X As Single Dim Y As Single Dim z As Single Dim intMnuda ...

'最好指定工作表,不然操作不当会把其它表格里的内容破坏掉,加个 with sheet1 ,,,end with Sub AddCol() Dim rng As Range Dim Arr, Ary(6), k%, Str$, i% Ary(0) = " ": Ary(6) = " " For Each rng In Range("k2", [K65536].End(3)) 'rng查找...

1、P-code或伪代码在运行时刻,vb将每一句伪代码转换成本机代码。如果将程序直接编译成本机代码,则取消了伪代码这一中间步骤。 2、本机代码编译工程代码将完整地编译为处理器芯片的本地指令,这将大大加速循环和数学计算,并可以加速对MSVBVM60...

确实不是一两句能说清楚的,你下载一个VB代码编写规范看一下就明白了。

'将两个文本框输入的用户名和密码取出来,组合成一个字符串,赋值给sqlsql = "select 用户名,密码 from 用户 Where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'" Set rs = conn.Execute(sql) '执行sql指令,结果赋值给rs数据集 ...

Dim paintnow As Boolean‘定义paintnow 为布尔值 Private Sub Form_DblClick()'窗体双击时执行下面的动作 Cls'清空窗体输出的内容 End Sub'结束窗体双击事件 Private Sub Form_Load()'窗体载入时执行下面的事件 DrawWidth = 2'变量赋值 ForeColo...

网站首页 | 网站地图
All rights reserved Powered by www.tnfh.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com