计算机应用函数公式fix,山东中医药大学《计算机应用vb》样题2

6.在程序运行期间，如果拖动滚动条上的滚动块，则触发的滚动条事件是【6】。

7.执行下面的程序段后，s 的值为 【7】 。

s = 5

For i = 2.6 To 4.9 Step 0.6 s = s+1 Next I

8.表达式Fix(-32.68)+Int(-23.02)的值为 【8】。 9.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a = InputBox("请输入一个整数") b = InputBox("请输入一个整数") Print a + b End Sub

程序运行后，单击命令按钮，在输入对话框中分别输入321和456，输出结果为 【9】 。 10.输入N 名同学的成绩，求平均分、最高分、最低分。N 可以任意指定。

Option Base 1 Dim Score() As Integer

Dim N As Integer, Max As Integer, Min As Integer, Average As Single Private Sub Form_Load()

N = Val(InputBox("请输入总人数", "", "")) ReDim Score(N)

For I = 1 To 【10】

Score(I)=Val(InputBox("请输入第" & Str(I) & _ "个学生的成绩", "成绩统计","")) Next I

Total = 0 Max = Score(1) Min = Score(1) For I = 1 To N

If Score(I) > Max Then Max = Score(I) If 【11】< Min Then Min = Score(I) Total = Total + Score(I) Next I

Average = 【12】

/ N

Text1Text2 Text3