什么是VB程序设计

1、VB程序设计以VisualBasic60简体中文版为语言背景，深入浅出的介绍VisualBasic60程序设计技术，基本涵盖了VisualBasic60编程时的常用内容。

2、VB程序设计共分14章，主要内容包括开发环境、语言基础和数组与过程、常用控件、菜单设计、文件处理、ActiveX控件、数据库程序设计、图形程序设计、多媒体编程、网络编程、API函数和注册表、安装程序的制作和综合实例。

3、为了方便读者学习，《VB程序设计》提供多媒体课件，及例题和练习题的所有源代码。

4、VB程序设计可以作为大中专院校计算机及相关专业的教材，适合编程爱好者自学使用。

Private Sub Command1_Click()

Picture1Cls

For i = 1 To 10

aver = 0

For j = 1 To 2

m = Int(Rnd 101) '产生0~100分数

Picture1Print m & Space(4 - Len(m)); '显示成绩

aver = aver + m 'aver & m是把2个数连接成1个数,&改为+

Next j

aver = aver / 2

Picture1Print aver '显示平均成绩

Next i

End Sub

Private Sub Command2_Click()

mark = Val(Text1)

If mark < 60 Then

Label2 = "不及格"

ElseIf 60 <= mark And mark < 80 Then '原条件语句60 <= mark< 80永远为真

Label2 = "及格"

Else

Label2 = "优良" 'Label没有Text属性,去掉Text属性

End If

End Sub

Private Sub Command3_Click()

Dim x As Integer, a As String

x = Val(Text1Text)

If x Mod 2 = 0 Then '判断条件语句:偶数除以2余数为0

a = "整数" & x & "是偶数"

Else

a = "整数" & x & "是奇数"

End If

Text2Text = a

End Sub

Public A As Integer

Private Sub Command1_Click()

If Option2Value Then

Label1Caption = Option1(A)Caption & Option2Caption

ElseIf Option3Value Then

Label1Caption = Option1(A)Caption & Option3Caption

End If

End Sub

Private Sub Form_Load()

option1(0)value="古典音乐"

option1(1)value="流行音乐"

option2value="篮球"

option3value="羽毛球"

Option1(0)Value = True

Option2Value = True

End Sub

Private Sub Option1_Click(Index As Integer)

A = Index

End Sub

1 以下程序段执行后，输出的结果是____5_____。

Dim m(1 To 10)

For k = 1 To 10

m(k) = 11 - k

Next k

x = 6

Print m(x)

2 在调用过程时，参数的传递有两种：按地址传递和按值传递，其中默认方式是__（2）按址______方式，形参前加了ByVal关键字是__（3）按值_____方式。

3 以下程序的循环次数是__8____次。

For j = 7 To 45 Step 5

Print j;

Next j

4 VB设计中添加文本框控件，若要求在文本框中输入文本时，可以多行显示，则应当在文本框的属性窗口中设置___MultiLine_____属性。

5 滚动条产生Change事件是因为___value_____值改变了。

6 如果要每隔2s产生一个计时器事件，则Interval属性应设置为__2000___。

7 执行以下程序后，变量x的值为__10_____。

Dim x As Integer

x = 3

For i = 1 To 20 Step 4

x = x + i \ 5

Next i

Print x

8 在VB中，变量从其作用范围来看，可分为__全局___变量，模块级变量和局部变量。

9 每当一个窗体成为活动窗口时触发___Activate____事件。