[根据2011年9月高考题改编]下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是，文本框Text2中显示的内容是。 Private Sub Command1 click( ) Dim a(1 to 3) as integer,k as integer,t as integer,s as integer a(1)=15: a(2)=36: a(3)=7...

题型：填空题题类：模拟题难易度：普通

浙江省杭州市2015年高考信息技术模拟卷5

[根据2011年9月高考题改编]下列VB程序运行时,单击命令按钮Command1后,文本框Text1中显示的内容是，文本框Text2中显示的内容是。

Private Sub Command1 click( )

Dim a(1 to 3) as integer,k as integer,t as integer,s as integer

a(1)=15: a(2)=36: a(3)=7

s=0

For k=2 to 3

if a(k)>a(1) then

t=a(1):a(1)=a(k):a(k)=t

s=s+1

End if

Next k

text1.text=str(a(1))

text2.text=str(s)

End sub

举一反三

图1

为实现上述功能，请将以下程序补充完整。

Private Sub Command1_Click()

Dim j As Integer, k As Integer

List1.Clear

For k = 1 To 100

j = Int(Sqr(k))

If {#blank#}1{#/blank#}Then List1.AddItem {#blank#}2{#/blank#}

Next k

End Sub

Dim s(1 To 81) As Integer, i As Integer, j As Integer, c As Integer, temp As Integer

c=0 : s(1) = 0

For i = 1 To 9

For j = 1 To i

temp = s(j * i)

s(j * i) = j * i

If temp <> s(j * i) And s(j * i) Mod 9 = 0 Then c = c + 1

Next j

Next i

该程序段运行后，变量C的值为（）

相关试卷