利用VB程序计算三角形面积。在文本框Text1、Text2、Text3中分别输入三角形三条边长a，b，c，半周长p ＝ (a ＋ b ＋ c) / 2，单击按钮Command1计算三角形的面积s＝，并把结果显示在文本框Text4中。界面如图a所示，请回答下列问题：

1. 利用VB程序计算三角形面积。在文本框Text1、Text2、Text3中分别输入三角形三条边长a，b，c，半周长p ＝ (a ＋ b ＋ c) / 2，单击按钮Command1计算三角形的面积s＝ $\text{[math]}$ ，并把结果显示在文本框Text4中。界面如图a所示，请回答下列问题：

(1) 结合图b，若要把窗体背景色改为白色，可通过其属性进行设置。

(2) 实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

Dim a, b, c, p, s As Integer

a ＝ Val(Text1.Text)

b ＝

c ＝ Val(Text3.Text)

p ＝(a ＋ b ＋ c) / 2

If a＋b>c And a＋c>b And b＋c>a And a>0 And b>0 And c>0 Then

s ＝

Text4.Text ＝

Else

Text4.Text ＝“输入边长不能组成三角形！”

End If

End Sub

【考点】

类、对象、属性、方法、事件和事件处理的概念及应用; 解析算法及程序实现;

【答案】

您现在未登录，无法查看试题答案与解析。登录

综合题普通

1. 校内阅卷已经普遍采用网上阅卷模式，其中客观题无需评阅，扫描过程中自动识别，扫描结束即生成成绩，准确率高。现有一道多选题，即从“ABCD”4个选项中任意选择2个及2个以上。

小明现想用Python输出所有的多选题的选项组合，他用4位二进制数模拟所有选项组合(1-选，0-不选），再从中筛选出有效组合，例如1100是一种有效组合，1000是一种无效组合。

实现该功能的Python程序如下：

xx=["A","B","C","D"]

combs=[]

i=0

while ① :

t=i

s=""

c=0

for j in range(4):

if t%2==1:

s= ②

c+=1

③

if ④ :

combs.append(s) # append()方法用于在列表末尾添加新的对象。

i+=1

print("符合要求的选项组合：")

print(combs)

(1) 上述程序中，用到的主要算法是（单选，填字母：A .解析算法/B .枚举算法）

(2) 请完成程序填空，在划线上填入合适的代码。

① ② ③ ④

综合题困难

2. 用VB编程实现累加器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击命令按钮Command1后，其计算结果输出在标签框Label1中。运行界面如图所示，VB程序代码如下。

实现上述功能的VB程序如下，请回答下列问题：

(1) 观察运行界面，该窗体中共有个对象。

(2) 实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()

Dim ans As Integer, t As String, ch As String

Dim i As Integer，s As String

s = Text1.Text

t = "" : ans=0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch = "," Then

ans =

t = ""

Else

t =

End If

Next i

Label1.Caption = "累加的结果是：" & Str(ans)

End Sub

(3) 如图，若输入的“，”用“；”来代替，输入保持不变，则输出为。

综合题普通

3. “字符洗牌”程序模拟扑克洗牌的操作，为了打乱牌序，把手上的扑克牌中间抽一部分放到最上面，完成一次洗牌（如字符串“1234ABCD”，若把中间的第3个到第5字母抽出并保持原来的顺序放到最前面，则一次洗牌操作后字符串变成“34A12BCD”），也可以把扑克牌分成上下两部分，把下面的部分放置到上面（如字符串“1234ABCD”，把第3个字符到最后一个字符移到前面，变成“34ABCD12”），多次重复做这个动作，就能达到洗牌的目的，效果如图所示。

(1) 若要把窗体的标题名称由“Form1” 改为“字符洗牌”，应改变窗体的属性。

(2) 完成上述功能的程序代码如下，请在划线处填入合适的代码

Private Sub Command1_Click()

Dim r As Integer, k1 As Integer, k2 As Integer, r As Integer

Dim s As String, n As Integer

'从文本框TxtIn中获取字符串

Randomize

r = Int(Rnd() * 10) + 1 '随机生成洗牌次数

n = Len(s)

Do While r >= 1 '洗牌操作

k1 = Int(Rnd() * (n - 2)) + 2

k2 = Int(Rnd() * (n - k1 + 1)) + k1

s = + Mid(s, 1, k1 - 1) + Mid(s, k2 + 1, n - k2)

r = r - 1

Loop

'输出结果

End Sub

(3) 若加框处的语句改为TxtOut.Text = Str(s)，则运行程序时会发生的错误消息为_________ A.

综合题困难