编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击&ldquo;计算累加和&rdquo;按钮，在标签Label3中显示起始值与结束值之间所...

题型：综合题题类：常考题难易度：普通

浙江省台州市2017-2018学年高二上学期信息技术第一次月考试题

编写VB程序，实现如下功能：在文本框Text1、Text2中分别输入一个正整数，单击“计算累加和”按钮，在标签Label3中显示起始值与结束值之间所有奇数的累加和。界面如图所示。

（1）、在设计应用程序界面时，要将窗体的标题改为“计算累加和”，应将窗体的属性的值更改为“计算累加和” (填写相应属性名)。

（2）、为实现上述功能，请在划线处填入合适代码。

Private Sub Command1_Click()

Dim x1 As Integer，x2 As Integer，n As Integer

Dim sum As Long

x1＝Val(Text1.Text)

x2＝Val(Text2.Text)

Sum＝0

If x1<x2 Then n＝1 Else

For i＝x1 To x2 Step n

IfThen

sum＝sum＋i

Next i

Label3.Caption＝“从”& x1 &“到”& x2 &“之前所有奇数的累加和＝”& Str(sum)

End Sub

举一反三

[根据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

设一个三位数是n，它的个位数为a，十位数为b，百位数为c，则b的表达式是（）

若x是一个整型变量，则判断它是否为5的倍数的VB关系表达式是（）

【加试题】随机数排序程序。程序功能如下：窗体加载时生成[10，100]范围内的随机整数10个存储在数组a中,并在列表框List1中显示原始数据，单击“排序”按钮，这10个数据按降序排序后显示在列表框List2中。程序运行效果如图所示。实现上述功能的VB代码如下，但加框处代码有错，请改正。

Dim a(1 To 10) As Integer

Private Sub Command1 Click()

Dim i As Integer, j As Integer, x As Integer p = True

i = 1

Do While i <= 9 And p p= False

For j = 10 To i + 1 Step -1

If Then '①

k = a(j): a(j) = a(j - 1): a(j - 1) = k: p = True

End If

Next j

i = i + 1

Loop

For i = 1 To 10

List2.AddItem Str(a(i)) Next i

End Sub

Private Sub Form_Load()

Dim i As Integer

List1.Clear

Randomize '初始化随机函数 Rnd

For i = 1 To 10

a(i) = '②

List1.AddItem

Str(a(i))

Next i

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#}

模拟剪刀石头布的游戏，用1~3这3个数分别代表剪刀、石头、布这三种情况，使用Rnd随机函数可以表示为（）

小天使舞蹈队编排一个舞蹈。该舞蹈要求人数为偶数，其中 1 位同学领舞，其站位始终不变，舞蹈队形变化时，其余同学按逆时针顺序移动站位。我们把所有跳舞的同学从领舞开始依次编为数字 1～n（n 为偶数），然后把队伍编号按 U 形走向分成两列，即得到第一次队形。从第二次队形开始，固定编号 1（领舞），其余编号均按逆时针方向移动一个位置，即为该次队形；以后各次队形以此类推，直到除领舞外的所有同学按逆时针转完一圈为止。

例如，节目人数为 6 时队形变化情况如下：

小嘉为此编写了一个 VB 程序，功能如下：在文本框 Text1 中输入跳舞的同学 n（n 为偶数），单击“队形

变化”按钮 Command1，在列表框 list1 中输出每次变化后的队形。程序代码如下，运行效果如图所示。

Private Sub Command1_Click() Dim a(1 To 20) As String

Dim result As String, t As String

Dim n As Integer, i As Integer, j As Integer n = Val(Text1.Text)

For i = 1 To n

①

Next i

For i = 1 To

result = " "

List1.AddItem "第" & Str(i) & "次：" For j = 1 To n \ 2

result = a(j) + " " + a(n – j + 1 ) List1.AddItem result

Next j

②

For j = n To 3 Step -1 a(j) = a(j - 1)

Next j

a(2) = temp

Next i End Sub

请回答下列问题：

相关试卷

公司介绍

服务介绍

帮助中心