《数组的应用课后练习.docx》由会员分享，可在线阅读，更多相关《数组的应用课后练习.docx（3页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、数组专题练习(8.20)一、 选择题1、一维数组的大小为()A、上界+卜界+1 B、上界+卜界-1 C、上界-下界+1D、上界-下界-12、数组中的元素具有相同的()A、数据大小B、类型C、数值 D、存放地址3、使用Dim A (100) As Integer语句声明了数组A,其下标的取值范围为()A、 0100B、 1100C、 099D、 1994、对于Integer类型的数组，如果没有赋值，则所有元素的值为()A、空B、0C、1D、最大数5、有8个数据：46、78、12、55、17、9、33、80依次存放在数组d (1)到d (8 )中，k=l。程序段 如下所示：For i=2 To 8
2、 IF d(i) 5C、7D、97、有以下Vb程序段A(l)=68:a(2)=88:a(3)=76:a(4)=60:a(5)=98:a(6)=100:a(7)=64:a(8)=85:a(9)=99:a(10)=59 For i=l To 9 b(i)=Abs(a(i+l)-a(i) c(b(i)10)= c(b(i)10)+lNext i For i=0 To 10If c(i)0 Then Labell.Caption= Labell.Caption+z, +Str(c(i) Next i 数组c各元素初值为0,执行该程序段，标签Labell上显示的内容是()A、232111 3 2 2 1
3、 C、23221 D、132128、有如下程序段 Fork=l To 10 f= k Mod 2 If f=0 Then a(k) =0 Else a(k)=l For j=l To kIF f=0 Then a(k)=a(k)+l Else a(k)=a(k)*j Next j Next k 执行该程序段后，数组元素a(4)的值为()A、6B、4C、2D、19、有如下VB程序段：Dim a(0 To 9) As Integer, t As Long t=Val(Textl.text) Do While t0 a(t Mod 10)=1 t=t10Loop For i=0 To 9 x=x+a
4、(i) Next iTextl中输入10242048则程序执行后x的值为()A、 1B、 2C、 5D、 1010、某程序段如下：For i=l To 5 b(a(i)= b(a(i)+l Next i pa=0 For j=l To 10 For k=l To b(j) pa=pa+l : a(pa)=j Next kNext jA(l)到a (5)的初值依次是7、5、9、4、3,程序段运行后，数组a的值依次是()A、 7, 9, 5, 4, 3B、 3, 4, 5, 7, 9C、 4, 5, 7, 8, 3D、 9, 7, 5, 4, 311、有如下Vb程序段(数组a各元素的初始值均为0)
5、 n=Len(Textl.text) c=l For i=l To ns=Mid(Textl.text,i,l) If s=0 And s0 Then c=c+lEnd ifNext i在文本框中输入“Nol:X:123:Y:680:End，执行该程序段后，数组a (2)的值为()A、 1B、 2C、 3D、 123二、 程序填空题 12、编写程序，程序运行时产生n个范围在口0, 99内的随机整数，并在列表框Listl显示。在文本框Textl 输入整数Key,单击按钮Commandl后，将大于等于key的整数在列表框List2中显示。请在划线处填入合 适的代码。5 8凝宜图Const n=20
6、363779 ：7883 38781363779 ：7883 38781Dim a(l To 20) As Integer, b(l to n) As Integer Private Sub Form_Load() Dim i As Integer For i 1 To n Listl.Additem Str(a(i) Next i End Sub Private Sub Commandl_Click() Dim i As Integer ,key As Integer Key=Va I (Text 1.text): k=l For i=l To n，筛选出元素依次存储在数组b中If a(i)
7、=key Then K=k+1 End ifNext i For i=l To List2.Additem Str(b(i) Next i Label2.Caption=筛选出+Str(k-1)+”个数据 End Sub13、随机产生20个不重复的AZ之间的英文字母，按字母顺序输出，如下图所示。请在划线处填入合适 的代码，使程序能实现该功能。提示：定义一个有20个元素的字符型数组，将产生的字母放入数组中， 每次产生一个字母，则与已经产生过的字母比较，看是否相同。若相同，则跳过访字母，不放入数组中。Private Sub Commandl_Click()Dim a(19) As StringDim i As Integer ,j As Integer Randomizef)For i=0 To 19 For j=0 To If a(i)=a(j) Then i=i-lNext jNext iFor i=0 To 19Labell.Caption=Next iEnd Sub