2021年中考10 VB 11VB 12VB

天问信息：一个温情、人文、科技的公众平台，点击上面蓝色文字，让我们一起陪他成长

10【VB操作题】

认真查看“计算器”程序，并完成以下操作。
1.在代码1处添加一条语句（请勿改动已有代码），使得L1显示为"/"。
2.在代码2处添加一条语句（请勿改动已有代码），使得T1/T2的值显示在T3中。
3.在代码3处添加一条语句（请勿改动已有代码），用以结束过程。

Private Sub Command1_Click()
L1.Caption = "+"
T3.Text = Val(T1.Text) + Val(T2.Text)
End Sub
Private Sub Command2_Click()
L1.Caption = "-"
T3.Text = Val(T1.Text) - Val(T2.Text)
End Sub
Private Sub Command3_Click()
L1.Caption = "*"
T3.Text = Val(T1.Text) * Val(T2.Text)
End Sub
Private Sub Command4_Click()
'代码1
'代码2
'代码3

调试运行该程序，查看结果，原名原位置保存文件并退出

11【VB操作题】

认真查看“抽取幸运同学”程序，并完成以下操作:

1.在窗体上的Text1下边创建一个文本框Text2，在属性窗口中将Text2里显示的文字改成空白，并将Text2设置为“不可见”。

2.在“代码1”处补全代码（请勿改动已有代码），使得在程序运行时，Text2可见。

3.在“代码2”处补全代码（请勿改动已有代码），使得在程序运行时，可以在班级中随机抽取一位幸运学生。

Private Sub Command1_Click()

Label2.Visible = True

Text2.Visible = '代码1

Randomize

Text2.Text = Int(Rnd * Val() + 1) '代码2

End Sub

调试运行该程序，查看结果，原名原位置保存文件并退出。

12VB【VB操作题】

若想通过程序窗口输入一个n的值，计算得到1+2+3+……+n的和，需编程解决该数学问题，认真查看“累加求和”程序，并完成以下操作:

1.在代码1处补全语句（请勿改动已有代码），完成循环语句。

2.在代码2处补全语句（请勿改动已有代码），将i的值累加在变量s中。

3.在代码3处补全语句（请勿改动已有代码），将累加的和显示在Text2中。

Dim i, s, n As Integer

Private Sub Command1_Click()

s = 0

n = Val(Text1.Text)

For i = 1step 1 '代码1

'代码2

Next i

'代码3

End Sub

调试运行该程序，查看结果，原名原位置保存文件并退出。