关于VB的题~~求人解答~~

Question

1）（填空与问答）
1．Vb提供了一种新的数据库访问技术，即 ，通过该技术，能方便地访问数据库中的数据。
2．对象的属性是指 。
3．在文本框中通过 属性能获得当前插入点所在的位置。
4．在代码窗口中对窗体的MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 。
5．为了使一个控件在运行时不可见，应该对该控件的 。6．表示x既是5的倍数又是10 的倍数的逻辑关系表达式 。
6．Vb也提供了三种基本结构，三种基本结构是 。
7．下面程序段中，第2条语句执行 次，第3条语句执行 次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．数组声明语句Dim a(3,-2to2,5)中的数组a包含了元素的个数是 。
9．形参是在定义过程时的一种形式上虚设的参数，只代表了该过程参数的 、 、 、形参的名字并不重要，只表示在该过程中进行某种运算或处理。
10．在同一模块、不同过程声明的相同变量名，两者之间 。
11．简述建立一个完整应用程序的过程。
12． Visual Basic提供了那三种对数据文件访问方式？
13．使用MsgBox函数和MsgBox过程的区别是什么？
14． 说明下面程序段的运行过程和结果。
Dim x
If x Then Print x Else Print x+1
15．如果语句：Do While …..Loop构成了死循环，如何解决？
16．静态数组和动态数组的区别是什么？
17. 设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是什么？
18. 设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
= arr1(1)
For i = 1 To 8
If arr1(i) > Max Then
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
二、编程题
1．在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption　　 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。
2. 生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

Answer 1

1）基本概念（填空与问答）
1．Vb提供了一种新的数据库访问技术，即ADO技术 ，通过该技术，能方便地访问数据库中的数据。
2．对象的属性是指 。对象的性质
3．在文本框中通过 SelStart属性能获得当前插入点所在的位置。
4．在代码窗口中对窗体的MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 只能在属性窗口设置。
5．为了使一个控件在运行时不可见，应该对该控件的 Visible属性设置为False。
6．表示x既是5的倍数又是10 的倍数的逻辑关系表达式 ( x mod 5 = 0 ) and ( x mod 10 = 0) 。
6．Vb也提供了三种基本结构，三种基本结构是 。顺序，分之，循环
7．下面程序段中，第2条语句执行 4 次，第3条语句执行 12次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．数组声明语句Dim a(3,-2to2,5)中的数组a包含了元素的个数是 120。
9．形参是在定义过程时的一种形式上虚设的参数，只代表了该过程参数的 个数 、 类型 、 位置 、形参的名字并不重要，只表示在该过程中进行某种运算或处理。
10．在同一模块、不同过程声明的相同变量名，两者之间 没有任何关系 。
11．简述建立一个完整应用程序的过程。1建立界面2设置对象的属性3编写有关的代码程序4运行应用程序
12． Visual Basic提供了那三种对数据文件访问方式？顺序访问方式、随机访问方式、二进制访问方式
13．使用MsgBox函数和MsgBox过程的区别是什么？函数有返回值，过程没有。过程中参数不带括号，函数带括号。
14． 说明下面程序段的运行过程和结果。
Dim x
If x Then Print x Else Print x+1
1
15．如果语句：Do While … ..Loop构成了死循环，如何解决？IF<满足循环终止的条件> then Exit Do
16．静态数组和动态数组的区别是什么？静态数组声明数组的时候，指定维数，不可以改变；动态数组不声明维数，可以改变，过程中用redim声明。
17. 设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub
Sum=0/1 + 1/2 + 2/3 + 3/4 + 4/5
该程序通过For循环计算一个表达式的值，这个表达式是什么？
18. 设有程序：Option Base 1Private Sub Command1_Click()Dim arr1, Max as Integerarr1 = Array(12, 435, 76, 24, 78, 54, 866, 43) Max = arr1(1)For i = 1 To 8If arr1(i) > Max Then Max=arr1(i) Next iPrint "最大值是: "; MaxEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
二、编程题
1．在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption　　 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。
Private Sub Combo1 keypress(KeyAscii is integer)
If KeyAscii=13 then
For I=0 to Combo1.listcount-1
If Combo1.text=Combo1.list then
Label2.caption=”输入项已在组合框中”
Exit Sub
End if
Label2.caption=” 已成功添加输入项”
Combo1.AddItem Combo1.text
End if
End Sub
2. 生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。
Private Sub Command1_click()
For I=1to 20
X=Int(Ren*200+100)
If x mod 5=0 then
Print X
S=s+x
End If
next I
print “sum=”,s
End Sub

Answer 2

1. ADO (ActiveX Data Object)
2. 对象（窗体，控件）的大小、颜色、方位等一系列外观或内部构造的特征
3. SelStart
4. 只读的
5. Visible属性设置为False
6. (x Mod 5) = 0 And (x Mod 10) = 0
7. 第2条语句执行 4 次，第3条语句执行 12 次
8. 20
9. 个数、类型、位置
10. 两者不表示同一变量，且这两个变量之间没有联系
11.
(1)新建工程
(2)设计用户界面：确定窗体，在窗体中添加控件。
(3)设置对象的属性：窗体和控件的属性在属性窗口设置。
(4)编写有关的代码程序。
(5)调试：若窗体或程序有错，则重复前三步，直到程序完全正确及窗体令人满意为止。
(6)应用程序的集成和管理（存储项目）：把有关项目存储起来，以便以后使用。
(7)运行应用程序
(8)建立可执行文件：脱离VB，而直接在Windows环境下运行。
(9)结束项目。
12. 顺序文件、随机文件、二进制文件
13. msgbox过程中参数不带括号，且没有返回值，msgbox函数有括号，且具有返回值
14. 如果X为Ture,则在窗体上输出X的值,否则输出X+1的值;运行结果是输出 1
15. Exit Do
16. 对于静态数组，一般要声明尽可能大的数目浪费内存空间，而动态数组在运行过程中可以改变大小，节省内存空间，但浪费执行时间。静态数组只能是常量。
17. (0/1 + 1/2 + 2/3 + 3/4 + 4/5)
18.
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max As Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
Max = arr1(1)
For i = 1 To 8
If arr1(i) > Max Then Max = arr1(i)
Next i
Print "最大值是: "; Max
End Sub

程序题 1.
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Dim I As Long
If KeyAscii = 13 Then

For I = 0 To Me.Combo1.ListCount
If Combo1.Text = Me.Combo1.List(I) Then
Label2.Caption = "输入项已在组合框中"
Exit Sub
End If
Next I

Label2.Caption = "已成功添加输入项"
Combo1.AddItem Combo1.Text
End If

End Sub

程序题2.
Dim I As Integer
Dim tmpNum As Integer
Dim TOTAL As Long

Randomize
For I = 1 To 20
tmpNum = Int(100 * Rnd) + 200
If tmpNum Mod 5 = 0 Then
TOTAL = TOTAL + tmpNum
Print tmpNum
End If
Next

Print "TOTAL:" & TOTAL

Answer 3

1）（填空与问答）
1．Vb提供了一种新的数据库访问技术，即 ，通过该技术，能方便地访问数据库中的数据。
>ADODB
2．对象的属性是指 。
>外部可访问的对象的特性
3．在文本框中通过 属性能获得当前插入点所在的位置。
>SelStart
4．在代码窗口中对窗体的MaxButton属性进行了设置，但运行后没有效果，原因是这些属性 。
5．为了使一个控件在运行时不可见，应该对该控件的 。
>Visible = False
6．表示x既是5的倍数又是10 的倍数的逻辑关系表达式 。
> ( x mod 5 = 0 ) and ( x mod 10 = 0)
6．Vb也提供了三种基本结构，三种基本结构是 。
>顺序，选择，循环
7．下面程序段中，第2条语句执行 4 次，第3条语句执行12 次。
1：for i=1 to 12 step 3
2： for j=6 to 2 step -2
3： print i,j
4： next j
5： next i
8．数组声明语句Dim a(3,-2to2,5)中的数组a包含了元素的个数是 75。
9．形参是在定义过程时的一种形式上虚设的参数，只代表了该过程参数的 引用 、 、 、形参的名字并不重要，只表示在该过程中进行某种运算或处理。
10．在同一模块、不同过程声明的相同变量名，两者之间 没有关系。
11．简述建立一个完整应用程序的过程。
>1.需求分析
>2.设计
>3.代码编写
>4.单元测试
>5.用户测试
12． Visual Basic提供了那三种对数据文件访问方式？
>1.Readonly
>2.Appending
>3.Write
13．使用MsgBox函数和MsgBox过程的区别是什么？
>函数有返回值
14． 说明下面程序段的运行过程和结果。
Dim x
If x Then Print x Else Print x+1
>
Print + 1
>Result:1
15．如果语句：Do While …..Loop构成了死循环，如何解决？
检查修正循环条件以及循环变量

16．静态数组和动态数组的区别是什么？
动态数组 的元素个数可以改变

17. 设有如下程序：
Private Sub Command1_Click()
Dim sum As Double, x As Double
sum = 0
n = 0
For i = 1 To 5
x = n / i
n = n + 1
sum = sum + x
Next
End Sub
该程序通过For循环计算一个表达式的值，这个表达式是什么？
sum = 1/1 + 1/1 + 1/1 + 1/1 + 1/1 = 5
18. 设有程序：
Option Base 1
Private Sub Command1_Click()
Dim arr1, Max as Integer
arr1 = Array(12, 435, 76, 24, 78, 54, 866, 43)
= arr1(1)
For i = 1 To 8
If arr1(i) > Max Then
Max = arr1(i)
Next i
Print "最大值是: "; Max
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中元素的最大值。请填空。
二、编程题
1．在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1和Label2及Caption　　 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示“已成功添加输入项”如图所示；如果存在，则在Label2中给出提示“输入项已在组合框中”。

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then

Dim i As Long
Dim bFound As Boolean
For i = 0 To Me.Combo1.ListCount
If Combo1.Text = Me.Combo1.List(i) Then
bFound = True
Exit For
End If
Next i

If bFound Then
Label2.Caption = "输入项已在组合框中"
Else
Label1.Caption = "已成功添加输入项"
Combo1.AddItem Combo1.Text
End If
End If
End Sub

2. 生成20个200到300之间的随机整数，输出其中能被5整除的数并求出它们的和。请填空。

Me.AutoRedraw = True
Me.Cls

Randomize

Dim i As Long
Dim nNum As Long
Dim nTot As Long

For i = 1 To 20
nNum = Rnd * 100 + 200

If nNum Mod 5 = 0 Then
Print nNum
nTot = nTot + nNum
End If
Next i

Print "Tot:"; nTot