vb编程技术
twtiqfn
这个作者很懒,什么都没留下…
展开
-
ASCII码与字符
Private Sub Command3_Click()Open "c:\ASCII码与字符.txt" For Output As #1Print #1, "ASCII码", "字符"For i = 33 To 126Print #1, i,Print #1, Chr(i)Next iClose #1Shell "notepad.exe c:\ASCII码与字符.t原创 2014-03-08 09:53:08 · 873 阅读 · 0 评论 -
一道VB输出结果的小题目
在网友发出求解请求:解答如下: 程序测试: 代码:Private Sub Command1_Click()a = 3b = 2c = -3d = Abs(b + c) + a * Int(Rnd + 3) + Asc(Chr(65 + a))e = Abs(b + c)f = a * Int(Rnd + 3)h = Chr(6原创 2014-03-08 09:27:26 · 1140 阅读 · 1 评论 -
Chr函数
函数chr()的作用是返回其参数所表示的字符,参数是这个字符的ASCII码。CHR函数,传入一个数值,返回这个数值对应的ascii码字符,比如chr(65)输出的是大写的A示例:Private Sub Command2_Click()ShowFor i = 1 To 7Print Spc(10 - i)For j = 1 To 2 * i - 1Print Chr(原创 2014-03-08 09:47:59 · 7126 阅读 · 0 评论 -
Asc函数
原创 2014-03-08 09:42:34 · 2637 阅读 · 0 评论 -
msgbox各种图标样式及按钮样式
adf原创 2014-02-25 08:54:46 · 20484 阅读 · 2 评论 -
msgbox用法
MsgBox是Visual Basic和VBS中的一个函数,功能是弹出一个对话框,等待用户单击按钮,并返回一个Integer值表示用户单击了哪一个按钮。“MsgBox”即为“Message Box”的缩写,在英语中意为“信箱”。原创 2014-02-25 08:09:54 · 7235 阅读 · 0 评论 -
msgbox实例
实例一:Private Sub Command5_Click()Dim msg$, Style&, Title$, Help$, Ctxt&, Response&, MyString$msg = "程序发生错误,继续?" '定义消息文本Style = vbYesNo + vbCritical + vbDefaultButton2 '定义对话框样式Title = "错误信息" '原创 2014-02-25 08:34:51 · 3606 阅读 · 0 评论 -
vbTAB用法
vbtab等于是键盘上制表符TAB按键的功能,当你在代码中一个字符串变量后再加上VBTAB后,实际在程序中的效果就等同于你在那个字符串后按了一下TAB铵键后所行走的空格。 程序中一般常用来做为读写文本时区分字段所用,也用来在mshflexgrid控件中写入到下一单元内的内容,如"abc" & vbtab & "def",就等于是在第一个单元内写入abc三个字符,然后跳到下一个单元,继原创 2014-02-24 14:48:43 · 10363 阅读 · 0 评论 -
vbCrLf用法
vbCrLf是Visual Basic中的一个字符串常数,即“Chr(13) & Chr(10)”(回车符与换行符连接在一起),是换行的意思。Private Sub Command3_Click()Text1.Text = "第一行" & vbCrLf & "第二行"'需先将MultiLine属性设置为True。End Sub原创 2014-02-24 14:58:47 · 11497 阅读 · 0 评论