vb8

一、提纲

1、学过的控件有：

控件名称（英文） 中文意思（名称）

Form

Label

Textbox

CommandButton

image

Timer

2、属性

控件名称 控件的属性（你所知道的填写出来）

Form

Label

Textbox

CommandButton

image

Timer

注意：textbox 设置文本内容的属性是_____________。而label command form 等控件设置文本内容的属性是_____________。

3、说出下列代码的意思

代码的一般格式

控件名称．属性＝

如设置label1的字体格式，可写成：

Label1.font=“隶书”

代码 代码意思

Label1.font=“隶书” 设置label1的字体格式为隶书

Label2.forecolor=rgb(255,255,0)

Text2.text=text1.text+text3.text

Command2.caption=“我想长大”

Command2.fontsize=“16”

Text6.text=“姓名”+text1.text

4、VB中常用到函数

在VB的代码编写过程中，常用到函数，说出下列各函数的意思。

Val( ) 意思是：

Cstr( ) 意思是： Vbcrlf( ) 意思是： Vbcrlf( )有时也简写成Vbcr( )

Timer$意思是：

Rnd( ) 函数返回小于_____________ 但大于或等于_____________。

Int( ) 正数时，删除小数部分而返回剩下的整数；负数时，则返回小于或等于第一个负整数。 \符号类似与int( ) 而/类似与数学中的除号÷

如int(6.92)=6 int(－6.92)=－7 int(－5.23)= －6

VB选择题

题号 题目 A B C D 答案

1 若选拔优秀毕业生的条件是：年龄（age）小于19岁，三门功课总分(total)大于285分，其中有一门(mark)为100分，表达式应写为 age<19 and

total>285 and

mark1=100 or

mark2=100 or

mark3=100 age<19 and

total>285 or

mark1=100 or

mark2=100 or

mark3=100 age<19 and

total>285 and

（mark1=100 or

mark2=100 or

mark3=100） (age<19 or

total >285) and

(mark1=100 or

mark2=100 or

mark3=100) c

2 下列哪一组语句不能正确定义两个字符型变量（） Dim str1,str2 as

String Dim str1$,str2$ Dim str1 as

String ,str2 as

String Dim str1 as

String

Dim str2 as

String a

3 已知X=1,Y=2,T=0

经程序段X=T:T=Y:Y=T 赋值后 X,Y 值分别为（） 1,2 0,0 0,2 1,0 c

4 在vb中，下列哪一数据类型长度为四个字节（） 货币型 日期型 单精度型 双精度型 c

5 “1234” &1234的运行结果是（ ） 12341234 "1234" 1234 出错 a

6 a=3,b=5,c=IIF(a

7 Datetime是Data类型的变量，以下赋值语句中错误的是： Datetime=#4/14/97# Datetime=#September 1,1997# Datetime=#12:15:00

AM# Datetime=“8/8/99” d

8 变量声明语句：Dim

5 广东理工职业学院

《VB程序设计基础》课程标准

一、课程基本信息

课程名称（课程代码）：VB程序设计基础（22000303）

课程性质：专业必修课

课程类型：理论课+实践课

适用专业： 电子商务

学 分：3

总 学 时：54（理论学时数：36，实践学时数：18）

考核方式：考试

二、课程定位

《V B程序设计基础》是高职电子商务专业的专业必修课程，是继《计算机应用基础》之后的又一门计算机类的课程。通过本课程的教学，培养学生掌握面向对象程序设计的基本思想与方法，理解工程、类、对象、属性、事件和方法等重要概念，具备初步的应用程序设计与编写的能力。为学习后续的《动态网页设计》、《数据库原理与应用》、《电子商务网站设计》等课程奠定理论基础。同时，也为学生毕业后从事商务网站的设计等相关职业岗位打下坚实的实践基础。

三、课程目标

1.知识目标：

（1）掌握Visual Basic6.0的安装、打开、运行，熟悉主要的用户界面组成；

（2）掌握常用控件程序示例，了解菜单编辑器的使用；

（3）学会由数学式写出对应的算术表达式；

（4）能够根据语言描述写出对应的逻辑表达式，掌握公共函数的使用方法；

（5）掌握分支、循环结构的编写法则；

（6）能够利用控件数组编写运算器；

（7）掌握用顺序查找和二分查找法对多个数字进行排序；

（8）掌握过程调用和递归调用

2.职业技能目标：

（1）使学生掌握VB语言的基础知识和基本语法。

（2）树立面向对象程序设计的基本思想，能熟练使用VB集成开发环境设计、编写、调试程序。

（3）能用VB语言解决实际问题的求解。

6 （4）培养学生良好的编程习惯、严谨务实的工作作风。

3.职业素质养成目标：

（1）培养良好的交流、沟通、团结协作的能力。

（2）培养爱岗敬业、工作负责、注重细节的职业人格。

（3）培养独立思考，主动探究，自主学习的能力。

（4）培养通过互联网查找文献资料来巩固和拓展信息收集和筛选能力。

Dim int1 As Integer

Private Sub cmd_click()

List1.Clear

int1 = 0

Dim i As Single, j As Single

i = 1

j = 1

Dim p As Integer, b As Boolean

Dim a(1 To 8, 1 To 8) As Boolean

Dim ii(1 To 8) As Single

Dim jj(1 To 8) As Single

a(i, j) = True

ii(1) = i

jj(1) = j

Do

Do While i < 8

i = i + 1

If i = 0 Then Exit Sub

j = 1

If b = True Then

a(i, jj(i)) = False

b = False

j = jj(i) + 1

End If

Do

If j > 8 Then i = i - 2: b = True: Exit Do

For p = 1 To i - 1

If j = jj(p) Or Abs(i - ii(p)) = Abs(j - jj(p)) Then Exit For

Next

If p = i Then Exit Do

j = j + 1

Loop

If b = False Then

ii(i) = i: jj(i) = j

a(i, j) = True

End If

Loop

Dim p1 As Integer, p2 As Integer, str1 As String

For p1 = 1 To 8

str1 = ""

For p2 = 1 To 8