现要编写VB程序，该程序的功能：是计算10以内的整数（包含1和10）对5取余的和。

题型：综合题题类：模拟题难易度：普通

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

（1）、应用程序界面设计时，为添加“ Text2”对象，应使用图2所示的“控件工具箱”中的（填写相应编号），为了让text2和text1一样显示为空，则可将text2的属性值设置为空。

（2）、程序如下：

Private Sub Command1Click( )

Dim s As Integer

Dim i As Integer

S=0

For i=1 To 10

s=s + i mod 5

Next i

Text1.text=str(s)

Text2.text=str(i)

End sub

单击“计算”按钮后，文本框Text1中显示的内容是 ,文本框Text2中显示的内容是。

举一反三

【加试题】有如下VB程序：

Private Sub Command1_Click()

Dim a As Integer, b As Integer, c As Integer

a = Val(text1.Text)

b = Val(text2.Text)

c = (a + b + Abs(a - b)) \ 3

Text3.Text = Str(c)

End Sub

运行该程序，分别在文本框Text1、Text2中输入5、9，单击命令按钮Command1后，文本框Text3中显示的内容是（）

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

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

下列是关于某数字的加密解密算法。其加密规则如下：计算某位数字与其位置相加得到的结果除以 11 的余数即为编号（其中若余数为 0，编号为 11），编号与字符对照表如下：

编号	1	2	3	4	5	6	7	8	9	10	11
字符	V	i	s	u	a	l	B	A	S	I	C

从对照表中找出与编号对应的字符完成加密，如下表显示了数字“2018”的加密过程：

数字	2	0	1	8
位置	1	2	3	4
编号	3	2	4	1
加密字符	s	i	u	V

小张按照上述原理，设计了一个解密的VB程序，功能如下:单击“解密”按钮Command1,将文本框Text1中的密文(字符数不超过11个)进行解密，并将解密后的明文在文本框Text2中输出。程序运行效果如图a所示。

编写“鞋码换算”程序，实现如下功能：在文本框 Text1 中输入脚长 n(单位：厘米)，单击 “换算”按钮 Command1，在标签 Label1 中显示相应鞋码，同时在列表框 List1 中显示与脚长对应的标准鞋码表。程序运行界面如图所示。

编写VB程序，实现如下功能:在文本框Text1中输入一个整数，单击“查找”按钮，找出该整数的全部的连续整数固定和，并将它们显示在列表框List1中。所谓一个数n的连续整数固定和，就是指存在a₁ ， a₂ ， …， a_n ，其中a_i+1比a_i大1，使得a₁+a₂+…+a_n。这样a₁ ， a₂ ， …，a_n称为n的一个连续整数固定和。例如27的全部的连续整数固定和有3组，运行界面如图所示，实现上述功能的程序如下，请在划线处填写合适代码。

Private Sub Command1_Click()

Dim i As Integer, j As Integer, sum As Integer

Dim n As Integer, k As Integer, tmp As String

n = Val (Text1.Text)

sum = 0:List1.Clear

For i = 1 To n-1

j=i

Do While sum < n

{#blank#}1{#/blank#}

j = j + 1

Loop

If sum = n Then

{#blank#}2{#/blank#}

For k=i+1 To j-1

tmp = tmp + “+” + Str(k)

Next k

List1.AddItem tmp +“=”+ Str(n)

End If

{#blank#}3{#/blank#}

Next i

End Sub

调试程序时，主要是对程序进行 ( )

相关试卷

公司介绍

服务介绍

帮助中心