计算机程序设计基础教程第一次作业

浙江人才专修学院

成人高等学历教育《计算机程序设计基础教程》课程

作业答题纸

（第一次作业）

学校：班级名称：

学号：＿＿＿＿姓名：＿＿＿＿＿手机号码：＿＿＿＿＿温馨提示：1、请正确完整的填写以上个人资料，以便学校登记平时成绩；2、第一次作业请于年月日前上交到中河大厦前台、朝晖九区学生处，第二次作业请于年月日前上交到中河大厦前台、朝晖九区学生处，逾期将酌情扣分，未完成作业者平时成绩为零分。（学校期末总评成绩作业占15％）

一、选择题

1．决定控件上文字的字体、字形、大小及效果的属性是（）

A．Text B．Caption C．Name D．Font

2．如果将布尔常量值TRUE赋值给一个整型变量，则整型变量的值为（）A． 0 B．-1 C．TRUE D． FALSE

3．运行时，当用户向文本框输入新的内容，或在程序代码中对文本框的Text 属性进行赋值从而改变了文本框的Text属性值时，将触发文本框的（）事件

A．Click B．Dblclick C．Gotfocus D．Change

4．计算结果为0的表达式是（）

A．Int(2.4)+Int(-2.8) B. Int(2.4)+Round(-2.8)

C．Fix(2.4)+Int(-2.8) D. Fix(2.4)+Fix(-2.8)

5．下列各组常量的声明正确的是（）

A．Const C as 3 B．Const c=1/3 C．Public I=3 D．Puclic I=1/3

6. 以下能判断是否到达文件尾的函数是（）。

A) BOF B）LOC C）LOF D）EOF

7. 以下声明语句中错误的是（）。

A）Const var1=123 B）Dim var2 = “ABC”C）Dim var3(20) D）Static var4 As Integer

8. 在Visual Basic中，Cls方法可以清除（）中的内容。

A）Text B）Label C）Command D）Picture

9. 以下叙述中错误的是（）。

A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

B）以.BAS为扩展名的文件是标准模块文件

C）窗体文件包含该窗体及其控件的属性

D）一个工程中可以含有多个标准模块文件

10.执行以下程序段后，变量c$的值为（）。

a$="Visual Basic Programing"

b$="Quick"

c$=b$ & UCase(Mid$(a$,7,6)) & Right $ (a$,11)

A) Visual BASIC Programing

B) Quick Basic Programing

C) QUICK Basic Programing

D) Quick BASIC Programing

二、编制程序

1．随机产生200个A到Z之间的字母，分项统计各个字母出现的次数。

2．随机产生20个200～400之间随机整数，将其存在一个4行5列的二维数组中，找出每列的最小值。

第一次作业答案

一、选择题

1-5 DBDDB 6-10 DBDAD

二、编制程序:

1）Private Sub Form_Click()

Dim a(1 To 200) As Integer, s(1 To 26) As Integer

For i = 1 To 200

Randomize

a(i) = Int(Rnd * 26 + 65)

j = a(i) - 64

s(j) = s(j) + 1

Print Chr(a(i));

If i Mod 10 = 0 Then Print

Next i

For j = 1 To 26

If s(j) > 0 Then Print Chr(j + 64) & "的个数为"; s(j) Next j

End Sub

2）Private Sub Command2_Click()

Randomize

Dim a() As Integer

Dim b(5) As Integer

Dim m%, n%, i%, j%

m = 4

n = 5

ReDim Preserve a(m, n)

For i = 1 To m

For j = 1 To n

a(i, j) = Int(Rnd * 100)

Print a(i, j);

Next j

Print

Next i

For j = 1 To n

b(j) = a(1, j)

For i = 2 To m

If a(i, j) < b(j) Then

b(j) = a(i, j)

End If

Next i

Print b(j)

Next j

End Sub

Print a(i);

If i Mod 10 = 0 Then Print

Next i

End Sub