题干

数据插入。用VB设计程序,主要功能如下:随机产生15个200以内的正整数数列,按升序排序后显示在List1列表框中,在文本框Text1中输入1个200以内的正整数,单击“插入”按钮Command1后将其插入到数列中,并保持数列仍然有序,显示在列表List2中,同时在标签Label4中显示插入的位置,程序界面如图所示。

实现上述功能的VB程序代码如下,请在划线处填上合适的代码。

Dim a( 1 To 20) As Integer

Private Sub Command1_Click ( )

Dim key As Integer

key =   ①   

i = 1

Do While key > a ( i ) And ( i <= 1 5 )

i = i + 1

Loop

Label4.Caption = “该数插入的位置是:” + Str ( i )

If  i = 16  Then

a ( i ) = key

Else

For j = 16  To  i + 1 Step -1

    ②  

Next j

a ( i ) = key

End  If

List2. Clear

For i = 1 To 16

List2.AddItem a( i)

Next i

End Sub

Private Sub Form_Load( )

'随机生成15个200以内的正整数

Randomize

For i = 1 To 15

a ( i ) = Int(Rnd * 200) + 1

Next i

'将15个数从小到大排序

For i = 1 To 14

k = i

For j = i + 1 To 15

If a ( k ) > a ( j ) Then k = j

Next j

If  i <>k  Then

t = a(i); a( i) = a ( k ):a ( k )

End  If

Next i

'将排好序的数输出在列表框Listl中

Listl.Clear

For i = 1 To 15

Listl.AddItem str ( a ( i ) )

Next i

End Sub

程序中①划线处应填入____,程序中②划线处应填入____

上一题 下一题 0.0难度 选择题 更新时间:2017-12-13 12:11:52

答案(点此获取答案解析)

Val(Text1.Text),a(j)=a(j-1)

同类题1

阅读下文,回答问题

藏龙卧虎的里巷

安家正

    ①上海的“弄”,烟台叫里、叫巷,或者叫胡同,是最小的聚居单位。一般来说都不长,最长的坤山里130米;也较窄,最窄的隆德里1.4米。

    ②小巷不乏逸闻,见证过小城昔日的闭塞。

    ③如今已成市中心的桃花街有一个“耳朵眼”,俗谚说:“不知耳朵眼,不是烟台人。”语出登莱青兵备道第二任道台潘蔚。道台大人偶发关注民生的善念,坐了轿深入民间,走到了狭窄的小巷里,却不料进退维谷。想前进,不可能,此路不通;想后退,太不吉利。他仰天长叹:“我算钻进耳朵眼里了。”这条无名小巷由此而得名,且声名鹊起。

    ④无独有偶,还有一条“耳道街”,在今天的中银大厦附近,五条无名小巷呈W状排列,街口都通三马路,因而得名耳道街,很形象。

    ⑤小巷联结着红色文化,南山路的思永里,一幢很不起眼的民宅竟是中共芝 区委的机关驻地,当然是地下状态的,掩护在市民之中,鹰犬们嗅不出半点气息。烟台有22条死胡同,街口有硕大的“仁丹”广告,蓝底白字,异常醒目,即使在依稀的月色下也清晰可辨。原来这是地下工作者的“暗号”。抗日战争时,有了这种暗号,既可把敌 诱入,又可防止自己被堵,堪称巧妙。

    ⑥与贫民区里那些拥塞不堪、脏乱差的小巷相比,二马路上的里巷,简直是天上地下。这里的东福里、铭新里,巷口是一个敞亮的大门,蔽以醒目的照壁,上书名家墨迹“紫气东来”,显示道家底蕴,巷内是整齐的甬道,排列整齐的“大宅门”,门前垂柳,门内名士。比方,铭新里住过连任商会会长的 台玉田,他出身微贱,却以集资办瑞丰面粉公司济人危难,因而口碑高耸。烟台 1934年设市,首任长官以“七品官”自吹,登门拜访被其拒绝:“我是一品老百姓,不见七品官!”

    ⑦又如东福里的安惠民,是 “四大善人”之一,其妻辞世,乞丐列队致祭。在接待冯玉祥的宴会上,他以商会董事的身份面刺:“煥章(冯的字) 兄,你是个小人。”(指冯被称为“倒戈将军”) 弄得全场瞠目,传为佳话。

    ⑧再如白忍里,张桐人曾住在那里,那里有藏着许多孤本、善本的很大藏书楼。此人的《墨菊》在当今的香港书画市场上仍为抢手货。他首创在宴席之末,大家挥毫书画为乐,弄得许多缺少文化的达官非常尴尬。里巷中人,天生傲骨,体现了 “绅商文化”特有的风采。

(选自《齐鲁晚报》)