问题 问答题

在考生文件夹下有一个工程文件stj4.vbp,相应的窗体文件为stj4.frm,其功能是通过调用过程FindMax求数组的最大值,请装入该文件,程序运行后,在四个文本框中各输入一个整数,然后单击命令按钮,即可求得数组的最大值,并在窗体上显示出来(如下图所示)。这个程序不完整,请把它补充完整,并能正确运行。

试题源程序:

1 Option Base 1

2 Private Function FindNax(a( )As Integer)

3 Dim Start As Integer

4 Dim Finish As Integer,i As Integer

5 ’Start=(a)

6 ’Finish=(a)

7 ’Max=(Start)

8 For i=Start To Flnlsh

9 ’If a(i)Nax Then Nax=

10 Next i

11 FindMax=Nax

12 End Function

13 Private Sub Command1_Click( )

14 Dim arr1

15 Dim art2(4)As Integer

16 arr1=Array(Val(Text1.Text),Val(Text2.Text),Val(Text3.Text),Val(Text4.Text))

17 For i=1 To 4

18 arr2(i)=CInt()

19 Next i

20 ’M=FindUax()

21 Print"最大值是:";M

22 End Sub

答案

参考答案:

(1)启动VB程序,打开考生文件夹下的工程文件stj4.vbp。

(2)双击窗体中的任何位置,进入代码编辑窗口,完善程序如下:

1 private Function FindMin(a( )As Integer)

2 Dim Start As Integer

3 Dim Finish As Integer,i AsInteger

4 Start=LBound(a)

5 Finish=UBound(a)

6 Min=a(Start)

7 For i=Start To Finish

8 If a(i)<Min Then Min=a(i)

9 Next i

10 FindMin=Min

11 End Function

12 Private Sub Command1_Click( )

13 Dim art1

14 Dim art2(4)As Integer

15 arr1=Array(Val(Text1.Text),Val(Text2.Text),

Val(Text3.Text),Val(Text4.Text))

16 For i=1 To 4

17 art2(i)=CInt(arr1(i))

18 Next i

19 M=FindMin(art2( ))

20 Print "最大值是:";M

21 End Sub

(3)单击启动键运行成功。

(4)按考试要求将文件保存在考生文件夹下。

解析:

过程FindMin求数组的最小值。将数组的第一个值设为最小值Min,其后的值依次与之比较,若小,则将其赋给Min,最终得到的就是最小值。所以有Start=LBound(a),Finish=UBound(a)和Min=a(Start)

2.命令按钮的click事件中对输入的四个数据求最小值,大小比较运算是基于数值的,文本框中数值类型为字符串,所以首先采用Val( )函数进行数据类型转换,然后调用求最小值的FindMin过程得到最小值,并将它输出。

单项选择题


针对下列图、表或文字回答问题。你应根据资料提供的信息进行分析、计算、处理。

一、根据以下资料,回答题。
经初步核算,2009年上半年我国国内生产总值同比增长7.1%,比一季度加快1.0个百分点。其中,第一产业增加值12025亿元,增长3.8%;第二产业增加值70070亿元,增长6.6%;第三产业增加值57767亿元,增长8.3%。上半年,全社会固定资产投资91321亿元,同比增长33.5%,增速比上年同期加快7.2个百分点。其中,城镇固定资产投资78098亿元,增长33.6%,加快6.8个百分点;农村固定资产投资13223亿元,增长32.7%,加快9.5个百分点。上半年,社会消费品零售总额58711亿元,同比增长15.0%。其中,城市消费品零售额39833亿元,增长14.4%。县及县以下消费品零售额18878亿美元,增长16.4%。上半年,进出口总额9461亿美元,同比下降23.5%。其中,出口5215亿美元;进口4246亿美元,贸易顺差同比减少21亿美元。上半年,城镇居民家庭人均总收入9667元,其中,人均可支配收入8856元同比增长9.8%,在城镇居民家庭人均总收入中,工资性收入6394元,增长11.1%;转移性收入2273元,增长16.0%;经营净收入778元,增长3.9%;财产性收入222元,增长9.1%。农村居民人均现金收入2733元,增长8.1%,其中,工资性收入954元,增长8.4%;家庭经营收入1512元,增长5.5%;财产性收入78元,增长9.9%;转移性收入189元,增长31.4%。

2008年上半年,我国进出口贸易顺差为( )。

A.1018亿美元

B.990亿美元

C.970亿美元

D.948亿美元

问答题 简答题