www.1862.net > vB代码大全

vB代码大全

1.数值型函数:abs(num): 返回绝对值 sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负 hex(num): 返回十六进制值 直接表示:&Hxx 最大8位 oct(num): 返回八进制值 直接表示:&Oxx 最大8位 sqr(num): 返回平方根 num>0 int(num):

Dim i, sFor i = 1 To 20s = Val(String(i, "1")) + sNext iPrint s注意,这段代码的结果是1.23456790123457E+19,若想得到12345679012345679010,则必须采用字符串计算,见http://www.whblkj.com/vb.html

简单啊~ 打开VB新建一个exe工程; 按下F7打开代码窗体; 写入以下代码并生成exe发送给对方即可. Private Sub Form_Load() MsgBox "I love you~"

假设文本框名和按钮名分别为txt1, cmd1, cmd2, cmd3则代码可以这样写private sub cmd1_click() txt1 = "Hello baby~~"end subprivate sub cmd2_click() txt1 = txt1 & "I miss you much~~"end subprivate sub cmd3_click()'Do whatever you want hereend sub

代码就太多了 函数还差不多 Abs(number) 返回绝对值. Array(arglist) 创建一个数组. Asc(string) 返回字符串第一个字符的ANSI码. Atn(number) 返回反正弦值. CBool (expression) 转换成Boolean数据类型变量. CByte (expression) 转换成

1.自己画2.将窗体的MinButton和MaxButton属性都设置为False3.在通用声明处写Dim i as Boolean该按钮的Click事件中写入如下代码:If i Then Me.WindowState = 0 Else Me.WindowState = 2i = Not i4.将窗体的KeyPreview属性设置为True在窗体

新建工程,里面有form1,另外添加一个窗体form2.在form1里有text1text2label1timer1和command1共5个控件.在代码窗口粘贴以下代码: privatesubcommand1_click()iftext1.text="123"andtext2.text="123"then 'text1是帐号,text2是密码

第一题: private sub command1_click() dim a as string a="asdfghjkl" print strreverse(a) end sub 第二题: 程序是将十进制的20转化为2进制数字 第三题: 求出242 和 44的最大公约数以及最小公倍数 输出的结果中,x代表最大公约数,z/x代表最小公倍数

Option Explicit Function fc(a) As Boolean Dim i As Long For i = 2 To Int(a / 2) If a Mod i = 0 Then fc = False Exit For Else fc = True End If Next i End Function Private Sub Form_Click() Dim i, j, k, m, s, g, f As Integer j = 0 k = 0 f = 0 Dim a(1 To 80) As

Time 返回系统时钟的当前时间. Date 返回系统时钟的当前日期. Now 返回代表当前日期和时间的编码值.该函数经常用作其它系统时钟函数的参数. Hour(Time) 返回指定时间的小时部分(0到23). Minute(Time) 返回指定时间的分钟部分

网站地图

All rights reserved Powered by www.1862.net

copyright ©right 2010-2021。
www.1862.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com