2005-7-24
VB指导学习
1、if语句的另一种写法：
if num=10 then print num
当then后面（同一行）有执行语句时，if语句不能加end if
如有end if，则then后（同一行）不能有语句
2、两条语句放在同一行时用“：”分割
如：print num:print num+1
3、语句分多行写用“ _”连接，注意“空格&下划线”
如：print num _
+1
4、除法：a/ba\\b
C++：“/”是除法，a、b都是int，则结果是int，如果其中一个是float，则结果float“\\”是转义字符。
VB：“/”是除法，有小数。“\\”取整（小数点后舍）
5、case语句用法：
private sub form1_click()
dim a
select case a
case 1to4,7to9,11,13
print a
case else
msgbox”不在范围内”
end select
end sub
6、VB中假是”0”，真是”-1”
C++中假是“0”，真是“1”
7、private sub form_click()
for I=2to4 step-1读完完整的一句之后，如发现问题，则跳过此句执行下一句。print I
next
print I本程序只执行此句一次
end sub
8、倒序输出字符串
取字符函数mid(string,2,3)表示从string字符串中第二位开始，一共取三位如：mid(abcdefg,2,3)，则结果为 bcd
lift(abcd,2)=ab
right(abcd,2)=cds
例：private sub command1_click()
dim x as integer,str_len as integer
dim str as string
for x=str_len to 1 step –1
text1.text=text1.text + dim(str,x,1)
next
end sub
form1窗体里有两个文本框和一个按钮
9、循环for I=1to5
„„
next (I)(next后最好不要加i)
10、声明变量：dim a,b as integer则a是变体，b是int
dim a as integer,b as integer则a,b都是int
11、webbrowser 网页
添加部件 ms internet controls 控件
private sub form_click()
webbrowser1.navigate app.path & “\\a\\心理测试.html”app.path表示当前目录end sub
private sub form1.resize()
wenbrowser1.height=form1.scaleheight-10“-10”可不写
webbrower1.width=form1.scalewidth-10如不加scale，则会覆盖一点边
12、有退出按钮的窗体，点击退出时询问，点击窗体右上角X则不询问，怎么办？Private sub form_unload(canel as integer„„)
If msgbox（”是否退出？”,vbokcancel,”询问”）=vbok=true=false
Cancel=true-取消关闭
End if
End sub
13、”关于”窗体
添加“关于”对话框
14、使用“选项卡”省地方
添加控件“ms tabbed dialog control 6.0”
如添加控件“ms windows common control 6.0”->”tabstrip”也可以作，但不好用。
15、帮助文件 msdn是世界最大的帮助文件，CHM格式的帮助文件
html help workshop
1.目录 -> 节点&页面 -> 编译
2.new -> project -> ok -> 下一步 -> 保存路径&名称 -> 下一步 -> 勾中 html
files(.htm) -> 点击Add -> 下一步 -> 完成
3.搜索proj -> 属性 compiler -> 勾中compiler -> ok
4.作节点 页面 关键字
project(工程) ->contents(目录) ->index(索引) ->ok ->保存节 钥匙增加关键字contents(目录) ->是否创建 ->ok ->保存 ->点左第二个文件夹则属性换成书图标
16、用VB调用帮助文件
设工程属性的“帮助文件名”后，按“f1”弹出帮助
设一个“帮助菜单”，在菜单click事件中加入sendkeys“{F1}”，模拟用户按键盘还可以模拟alt + f4 , 但不可以模拟 control + alt + del (重启),
17、MDI无子窗体时，帮助无作用，调用ADI/ATI
把目录的成app.path ，把此文件拷贝到其它位置仍可使用
18、shell 只能调用.exe文件hh.exe是windows 自带的帮助打开“帮助文件”的exe文件shell”hh.exe 帮助文件的路径及文件名”
19、private sub a_click()
sendkeys”{f1}”
shell”hh.exe d:\\qiaosl\\„„.chm”,vbnormal focus
end sub
private sub form_load()
ap.help file=app.path &”\\„„.chm”
20、1．工程属性设“帮助菜单名”
2．App.helpfile= „„
3．Sendkeys”{f1}”
4.shell(“hh.exe„„”)
1&2作用是：按F1出帮助，便用2好一些，3是模拟按键盘F1，4可完全单独使用，3&4用在按键或菜单。
Api例子
下午
21、设置象素：窗体的lemode属性1-twip->缇，pixel->象素
22、动态生成控件必须用控件组
23、缺省事件是双击控件时自动出现的事件
缺省属性可省略：text1.text=”a”可写成text1=”a”,可省略“.text”
24、cotfouse->事件
25、模式&非模式窗体：
26、参数传递：默认按引用传递，Byval是按值传递
subs(byval x as single,y as single) 则x按值，y按引用，VB中真为-1
27、第十章，error
语法错误：
运行时错误：一般不出错，特定时出错，考虑不周全，如除数为0
逻辑错误：不报错，写的不对，如循环次数不对。
错误处理代码
1． 创建捕获错误代码
2． 处理此错误
3． 继续执行
on error goto 1标号（数字&字母都可以）
exit sub
1:
msgbox(“除数不为0”)
text1.text=””
text1.setfouse
end sub
resume （next/line）回到出错行，或出错行的下一行，或指定位置
on error resume next忽略错误/延迟最好少用，延迟后改不了
F8是单步运行
28、对象 –> err.属性&方法 number(错误编号)
29、dbpath=commondialog.filename
if dbpath=””
end
con.open
else resume
showopen
30、C++复习题：
简单
1． 用户接收一个数，调用一个函数，输出该数的立方
2． 写一个函数min(int a[])，求主程序中传来的数组中最小值
难度适中
3． 民主投票方法选班长，候选人编号A、B、C、D每位同学只能选一人作班长，
输入每张选票的候选人编号A~D，输入0终止，
调用函数proce()输出每人得票数及当选人
4． 接收用户输入的数，直到有5个奇数，显示此5个奇数，
调用max()函数显示此5个奇数中最大数
高难度
5． 字符串变量A、B，B是A中的一部分，将B抠出A，再输出
超难度
6． 卖票，车站一共15，每站上（剩下站数）个人，然后剩下每站依次下一个人，问应
设几个座位，卖出多少张票
7． 发牌：按顺序发随机牌（使用随机数）
