第一篇:vb学习中val函数补充用法vb
Val函数在执行转换时,在它不能识别为数字的第一个字符上,停止读入字符串。那些被认为是数值的一部分的符号和字符,例如美元号($)与逗号(,),都不能被识别。但是函数可以识别进位制符号&O(八进制)和&H(十六进制).空格、制表符和换行符都从参数中被去掉。
第二篇:VB循环语句的用法
1.While...Wend 语句
只要指定的条件为 True,则会重复执行一系列的语句。语法
While condition [statements]..Wend 2.Do...Loop 2.1 第一种用法
用 Do 循环重复执行一语句块,且重复次数不定。Do...Loop 语句有几种演变形式,但每种都计算数值条件以决定是否继续执行。如同 If...Then condition 必须是一个数值或者值为 True(非零)或 False(零)的表达式。
在下面的 Do...Loop 循环中,只要 condition 为 True 就执行 statements。
Do While condition statements..Loop 2.2 第二种用法
Do...Loop 语句的另一种演变形式是先执行语句,然后在每次执行后测试 condition。这种形式保证 statements 至少执行一次:
Do statements Loop While condition 注:其它两种演变形式类似于前两个,所不同的是,只要 condition 为 False 而不是 True,它们就执行循环。循环零次或多次
Do Until condition statements Loop
至少循环一次
Do statements Loop Until condition 3.For...Next 在不知道循环内需要执行多少次语句时,宜用 Do 循环。但是,在知道要执行多少次时,则最好使用 For...Next 循环。与 Do 循环不同,For 循环使用一个叫做计数器的变量,每重复一次循环之后,计数器变量的值就会增加或者减少。For 循环的语法如下:
For counter = start To end [Step increment] statements Next [counter] 参数 Counter、Start、end 和 increment 都是数值型的。
注意 increment 参数可正可负。如果 increment 为正,则 Start 必须小于等于 end,否则不能执行循环内的语句。如果 increment 为负,则 Start 必须大于等于 end,这样才能执行循环体。如果没有设置 Step,则 increment 缺省值为 1。实例:
以下代码打印出所有有效的屏幕字体名:
Private Sub Form_Click()Dim I As Integer For i = 0 To Screen.FontCount
Print Screen.Fonts(i)Next End Sub 4.For Each...Next For Each...Next 循环与 For...Next 循环类似,但它对数组或对象集合中的每一个元素重复一组语句,而不是重复语句一定的次数。如果不知道一个集合有多少元素,For Each...Next 循环非常有用。
For Each...Next 循环的语法如下:
For Each element In group statements Next elementt 例如,下面的子过程打开 Biblio.mdb,把每一个表的名字加到列表框中。
Sub ListTableDefs()Dim objDb As Database
Dim MyTableDef as TableDef Set objDb = OpenDatabase(“c:vbbiblio.mdb”, _ True, False)For Each MyTableDef In objDb.TableDefs()
List1.AddItem MyTableDef.Name Next MyTableDef End Sub 请记住使用 For Each...Next 时的几点限制:
对集合,element 只能是 Variant 变量,或一般的 Object 变量,或“对象浏览器”中列出的对象。
对数组,element 只能是 Variant 变量。
For Each...Next 不能与用户自定义类型的数组一起使用,因为 Variant 不可能包含用户自定义类型。
第三篇:VB学习心得体会
VB学习心得体会
这学期选修了VB这门学科,想从学习中对计算机有更深刻的认知,也对我大学中的2级考试奠定基础。那么谈谈这学期的学习中对vb的认知和心体会。
通过学习vb我基本学会了编辑一些小程序,掌握了一些基本的知识,得到了以下一些收获:
1.富业余生活。曾经业余时间到处游手好闲的身影不见了,以前没事我肯定一动不动的坐在电脑面前摆弄电脑。是啊,想想以前,真是一无是处,一会找人砍大山,一会找人打游戏,一会就傻傻的坐在小板登上两眼无光,似是厌倦了红尘。现在有了VB,它给了我无穷的快乐,让我乐此不疲。
2、多了一门技术。VB是一门计算机编程语言,也算是一项知识含量较高的东西。采用的是可视化程序设计。学习的这段时间,我明白了万事开头难,刚刚开始,遇到些困难没关系,慢慢来。我们每学一点,就赶快把它用到实际的程序中去,自己多学多用多实践,水平才能不断提高,这就是“学以致用”。只有这样我才呢学有所成
3、锻炼意志。编程可不是一项轻松的活,尤其是一个人开发制作软件时,那工作量就多了。没有一定的坐功、细心程度及耐性那是绝对做不到的。有时,把程序做完了需要调试运行,但是就是不能达到自已设计的效果和目的,那你得戴上放大镜找啊找啊,也许就是因为一个符号或一个字母,你就得花上个几个小时,半天,甚至更长。只要有一颗永不退缩的心,我相信你一定能找到问题所在,最后一定能见到你开心的笑容,也一定能找到成功者的感觉。
通过这个学期的学习,对了VB这种高级语言有了初步的认知,对一些小的程序有了初步的设计方案,能根据要求设计出想要的程序,锻炼了自己的创造性思维,是培养逻辑思维的好方法,同时我经常看同学设计好的程序代码,然后想想别人为什么这么计就能达到效果,我的设计能不能完成更多的功能,这样优秀了自己,帮助了自己,提高了自身水平,同样,也欣赏了别人,对别人是赞美,对自己是帮助,总而言之,这学期的VB课程让我收了很多。
第四篇:VB指导学习
2005-7-24
VB指导学习
1、if语句的另一种写法:
if num=10 then print num
当then后面(同一行)有执行语句时,if语句不能加end if
如有end if,则then后(同一行)不能有语句
2、两条语句放在同一行时用“:”分割
如:print num:print num+13、语句分多行写用“ _”连接,注意“空格&下划线”
如:print num _
+14、除法:a/bab
C++:“/”是除法,a、b都是int,则结果是int,如果其中一个是float,则结果float“”是转义字符。
VB:“/”是除法,有小数。“”取整(小数点后舍)
5、case语句用法:
private sub form1_click()
dim a
select case a
case 1to4,7to9,11,13<5
print a
case else
msgbox”不在范围内”
end select
end sub6、VB中假是”0”,真是”-1”
C++中假是“0”,真是“1”
7、private sub form_click()
for I=2to4 step-1读完完整的一句之后,如发现问题,则跳过此句执行下一句。print I
next
print I本程序只执行此句一次
end sub8、倒序输出字符串
取字符函数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都是int11、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 sub13、”关于”窗体
添加“关于”对话框
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中真为-127、第十章,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
showopen30、C++复习题:
简单
1. 用户接收一个数,调用一个函数,输出该数的立方
2. 写一个函数min(int a[]),求主程序中传来的数组中最小值
难度适中
3. 民主投票方法选班长,候选人编号A、B、C、D每位同学只能选一人作班长,输入每张选票的候选人编号A~D,输入0终止,调用函数process()输出每人得票数及当选人
4. 接收用户输入的数,直到有5个奇数,显示此5个奇数,调用max()函数显示此5个奇数中最大数
高难度
5. 字符串变量A、B,B是A中的一部分,将B抠出A,再输出
超难度
6. 卖票,车站一共15,每站上(剩下站数)个人,然后剩下每站依次下一个人,问应
设几个座位,卖出多少张票
7. 发牌:按顺序发随机牌(使用随机数)
第五篇:VB学习札记
VB学习札记
在大二上学期学习过VB.NET,但由于将近1年时间没有接触,本学期刚开学时vb水平已经退化到没学过的水平了。所以,必须要利用前3周来复习已经学过的知识,一边做练习一边巩固。
首先,我找到以前的VB书以及笔记本,大致的看了一遍,了解到所学知识的大致框架。之后,开始着手做第一题的练习题。题目中涉及到的VB语句就翻书再细致的去看。顺便把这一类型的语句复习一遍。
按照这样的流程,花了两个多礼拜,陆续把VB复习的差不多了。而且作业也完成的差不多了。
我总结了一下我学习VB的方法:
首先,要保持良好的学习心态
1、要有自信,自强,积极主动学习.2、不要畏惧困难,克服畏难情绪,树立学好程序设计的信心
之后,我觉得要有良好的学习习惯
然后,我觉得学习程序设计要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.我觉得务必要自己动手编写程序。遇到问题时,自己去琢磨,进行试验。再不行的时候,会找同学来帮忙。一起讨论检查语句中的错误。
程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的。只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容。
同时,也阅读、借签别人设计的好程序。我也会参与讨论同学遇到的问题。我发现在大家一起讨论,发现问题并最终解决问题时,学到的或许比自己单独一个做学到的更多。多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平.最后,我发现上机调试程序的时候应认真把实验题在用纸上做一做(包括窗体界面设计,事件代码的编写等)每次上机后应总结,把没有搞清楚的问题记录下来,请教老师或同学.平时应多抽课余时间多上机调试程序,同时时常注意系统的提示信息,遇到问题多问几次为什么。