VB学习资料

●几十个项目中任选其中一项或多项时应选用checkbox控件

●定时将数据保存应选用Timer控件

●常作命令按钮的控件是Command

●在几个方案中只能选择其中之一选用OptionButton

●用于一段文字的显示、修改可用Textbox

●用于给定区间参数设置可用HscrollBar来形象化调节控制

●当判断按键ASCII 码是否为13时，应当选用keypress事件来驱动

●拖动滚动条就会产生Scroll事件

●定时控件只响应一个事件timer

●当改变了文本框内容时，会自动产生change事件

●当文本框失去焦点时，会发生lostfocus事件

●打开某窗体时，初始化该窗体中的各控件，应用Load事件来驱动

●用鼠标拖拉作图时，要记下终点坐标位置，应用mouseup事件来驱动

●让按钮控件不起作用可修改enabled属性

●改变Text 文本框单行或多行显示方式可修改multiline属性

●让控件隐藏起来，成为不可见控件可修改Visible属性

●将通过对话框类型设置为“另存为”对话框，应修改action属性

●按Tab键时，焦点在各个控件之间移动的顺序由Tabindex属性来决定

●改变定时器控件的定时间隔可修改interval 属性

●用来改变控件上下位置可修改Top属性

●改变图形的线条粗细的是width属性

●将通用对话框以“打开文件对话框”方式打开，可用showopen方法

●清除列表框中的全部内容，可用clear方法实现

●清除由Print 方法在窗体或图片框中显示的文本，可用cls方法来实现

●用来显示一个新的窗体，可用show方法

●将指定的文本放到剪贴板clipboard上，可用SetText方法，移动对象在窗体中的位置可

用move 方法

●改变图形对象的坐标系可用scale方法

●在对象上画直线和矩形可用line

command1的命令按钮。程序执行的是单击命令按钮显示打开文件对话框，从中选择一个文本文件，并单击对话框上的打开按钮，并读入一行文本，显示在text1 中。Private Sub Command1.Click ()

CD1.Filter = “文本文件|* txt|WORD文档|*doc”

CD1.Showopen

If CD1.filename<>”” then

Open CD1.filename for input As#1

Line input #! , ch

Close#1

Text1.text = ch

End if

End up

倒序输出

s1 = InputBox("请输入一个正整数：")

For i = Len(s1) To 1 Step -1

s2 = s2 & Mid(s1, i, 1)

Next

1.print的格式：

【<对象名>】print【<输出项>】【，|；】【<输出项>】…

省略输出项则输出一空行，每14列为一段，“；”为紧凑格式

与print方法有关的函数：

（1）tab（n）：从第n列开始输出

（2）space（n）：输出n个空格

例如：语句form1.print tab（10）；“#”的作用是在窗体当前输出行（a）

A.第10列输出字符“#”

B.第9输出字符“#”

C. 第11输出字符“#”

D. 输出10个字符“#”

2.move方法的一般格式：object.Moveleft,top,width,height

3.获得焦点的方法：

（1）已知某窗体有两个文本框（名称分别为txt1和txt2）现在要求txt1中输入完毕后按回车键就能使焦点（当前光标）跳到txt2，而不用tab键进行切换。请补充下面txt1和keydown （按键）事件过程中的程序代码的空缺。

If keydown=13 then

Txt2____setfocus________

End if

4.如何保证文本框输入数据的正确性：

5.命令按钮：

（1）.若命令按钮cmdOK初始时是灰色，表示用户当前不能使用。在应用程序应行时，为使该命令按钮变成可用的，应使用什么语句？

Cmdok.enabled=true

（2）.若主窗口内有一个按扭“打开”，单击该按钮就会打开另一窗体fnnD，请写出该命令的单击事件过程中的程序代码。

（3）.设一个名称为frainput的框架（frame）控件包含了两个文本框（名称分别为txt1和txt2），请写出使frainput的两个子控件和txt1和txt2不可见的程序代码。

txt1.Visible = false

txt2.Visible = false

6.复选框（checkbox）的状态有哪些？不选中选中不可选

7.设置通用对话框（cmd1）类型时有哪两种方法？

Cmd1.showopen

Cmd1.action=1

Show action

8.在图片框picture1中以（1500，1000）为圆心，500为半径，用红色线画一个填充色为蓝色的实心圆，写出语句序列。

Private sub command1_click（）

Picture1.fillstyle=0

Picture1.fillcolor=vbblue

Picture1.circle（1500,1000）,500，RGB（255,0,0）

End sub

9.基本语法

输入输出

分支结构

循环结构

数组

10.在列表框（组合框）添加或删除项目。AddItemRemoveItem

11.在窗体或图片框中画点、线、圆（椭圆）等（常用的颜色函数）

PsetLineCircle

12.消息框（inputbox和msgbox）的格式MsgBox ("<消息的内容>", <对话框的样式>，"<对话框的标题>"

13.鼠标事件

Mousedownmousedupmousemove

14.改变坐标系的方法

SCALE

CurrentX CurrentY

15、在窗体中按每行10个输出所有能同时被3和4整除的3位数，并显示出满足此条件的3位数的个数。

Dim a,b as integer

Print”能同时被3和4整除的数为：”

For a=100 to 999

If a mod 3 = 0 and a mod 4 = 0 then

Print a;

b=b+1

If b mod 10=0 then

End if

End if

Next a

Print

Print”能同时被3和4整除的数总计为：”& b &”个”

【程序说明】在窗体上画一个名称为combo1的组合框，画两个名称分别为label1和label2及caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新的项目按回车键时（回车键的ASCII码为13），如果输出的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在label2中给出提示“输入项已在组合框中”。

【程序】

Private sub combo1_（1）（keyascii as integer）

If （2）then

For i=0 to combo1.Listcount-1

If combo1.text=（3）then

Label2.caption=“输入项已在组合框中”

Exit sub

End if

Next i

Label2.caption=“已成功添加输入项”

Combo1.（4）combo1.text

End if

End sub

【供选择的答案】

（1）A.keypress B.changeC.keydownD.keyup

（2）A.keyascii=0 B. keyascii=13 C. keyascii=8 D. keyascii=9

（3）https://www.360docs.net/doc/d23015866.html,bo1.listindex https://www.360docs.net/doc/d23015866.html,bo1.list（i） https://www.360docs.net/doc/d23015866.html,bo1.additem（i） https://www.360docs.net/doc/d23015866.html,bo1.clear （4）A.selectedB.removeiteml C.additem D.listindex

【程序说明】下列程序运行时在组合框中自动加入一项内容asdfg；然后允许用户在组合框中输入内容，按回车键后将一个组合框中没有的项目添加到组合框中（如图所示，即组合框中不允许出现重复的项）

【程序】

Private sub form_Load（）

combo1.clear

End sub

Private sub combo1_keypress（keyascii as integer）

Dim found as Boolean ,I as integer

If （10）then

Found=false

For i=0 to (11)

If combo1.text=combo1.list(i) then

(12)

End If

Next i

If not found then (13)

Combo1.text=””

End if

End sub

【供选择的答案】

(9) https://www.360docs.net/doc/d23015866.html,bo1.removeitem”asdfg” https://www.360docs.net/doc/d23015866.html,bo1.clear

https://www.360docs.net/doc/d23015866.html,bo1.text”asdfg”

https://www.360docs.net/doc/d23015866.html,bo1.additem”asdfg”

（10）A.keyascii=8 B. keyascii=9 C. keyascii=10 D. keyascii=13.

（11）https://www.360docs.net/doc/d23015866.html,bo1.listcount https://www.360docs.net/doc/d23015866.html,bo1.listcount-1

https://www.360docs.net/doc/d23015866.html,bo1.listindex

https://www.360docs.net/doc/d23015866.html,bo1.list

（12）A.found=true B.found=falseC.found=1 D.found=0

(13) https://www.360docs.net/doc/d23015866.html,bo1.additem.text https://www.360docs.net/doc/d23015866.html,bo1.list

https://www.360docs.net/doc/d23015866.html,bo1.text

https://www.360docs.net/doc/d23015866.html,bo1.lremoveitem

【程序说明】

下列程序在1000——9999之间查找满足如下条件的整数：该整数，逆向排列得到的另一个四位数是它自生的倍数（2倍以上）。查找结果和逆向排列数分别显示在对应的列表框中，如下图所示，并将查找到的数保存到文件c：/data.txt中。算法思想。根据一个数n，按位分离得到它的反序数m，然后判断m是否是n的倍数。

Private sub command1_click（）

Dim n%，m%，i%

Open （9）as # 1

For i=1000 to 9999

（10）

Do while n>0

m=（11）+n mod 10

n=n\10

Loop

If （12）=0 and m/ I>1 then

List1.additem i

List2.additem m &“=”&i&““”& m/i

（13）

End if

Next i

Close#1

End sub

(9) A.”c:\data.txt”for input B.”c:\data.txt”for append

C.”c:\data.txt”for output

D.”c:\data.txt”for read

（10）A.m=0 B. .m=1 C. .m=2 D..m=3

（11）A.m*4 B.m*6 C.cm*8 D.m*10

（12）A.m mod i =0B.m/i=0 C.m*i=0 D.m\i=0

(13 ) A.onput#1,i B.line input#1,i

C.print#1,i

D.line print#1,i

【程序说明】

程序运行后，如果单击“初始化”命令按钮，则对数组a的各元素赋值；如果单击“求和”命令按钮，则求出数组a的各元素之和，并在文本框中显示出来，如下图所示。

【程序】

Option base1

Dim a（3，2）as integer

Private sub command1_click（）

For i=1 to 3

For j=1 to 2

（1）=i+j

Next i

End sub

Private sub command2_click（）

For j=1 to 3

For i=1 to 2

s=s+（2）

Next i

Next j

Text.text=（3）

End sub

（1）.A.a（i，j）B.a（j，i）C.a（i，i）D.a（j，j）

（2）.A.a（i，j）B.a（j，i）C.a（i，i）D.a（j，j）

（3）.int（s）B.chr（s）C.len（s）D.str（s）

【程序说明】

单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数。（如输入58、64、49，则输出58）

Option base1

Private sub form_click（）

Dim a（3）as integer

Print“输入的数据是：”；

For I =1 to 3

a（i）=（5）

print a（i）；

next

print

if a（1）

t=a（1）

a（1）=a（2）

a（2）=（6）

end if

if a（2）>a（3）then

m=a（2）

else if a（1）>a（3）then

m=（7）

else

m=（8）

end if

print“中间数是：”；m

end sub

（5）. A、msgbox（“输入数据”）B、inputbox（“输入数据”）

C、output（“输入数据”）

D、input（“输入数据”）（6）A、t B、a（3）C、a（1）D、a（i）

（7）A、a（1）B、a（2）C、a（3）D、t

（8）A、a（1）B、a（2）C、a（1）D、t