题型：操作题
难度：0.65
引用次数：0
题号：21996516
在Visual Basic6.0中，打开“考生文件夹\65”文件夹中的工程文件“工程1.vbp”，认真查看“反向输出三位数”程序，并完成以下操作：
（1）在窗体上创建一个标签框Label1，将Label1的Caption属性改成空，Font属性改成楷体。
（2）在“代码1”处填入合适代码（请勿改动已有代码），将变量x定义为整型数据。
（3）在“代码2”处补全代码（请勿改动已有代码），计算出百位上的数字A。
（4）调试运行该程序，查看结果，原名原位置保存文件并退出。
（1）在窗体上创建一个标签框Label1，将Label1的Caption属性改成空，Font属性改成楷体。
（2）在“代码1”处填入合适代码（请勿改动已有代码），将变量x定义为整型数据。
（3）在“代码2”处补全代码（请勿改动已有代码），计算出百位上的数字A。
（4）调试运行该程序，查看结果，原名原位置保存文件并退出。
更新时间：2024-03-06 19:44:06
|
【知识点】 VB编程
相似题推荐
操作题
|
适中
(0.65)
【推荐1】设计出租车收费计算器VB程序，使其具有下列功能：在文本框Text1中输入行驶的路程，单击“计算”按钮Command1，在文本框text2中显示所需的费用（注意：当行驶的公里数a≤3公里时，费用s为6.5元；当行驶的路程超过3公里时，3公里按6.5元计算，超出部分按每公里1.6元收费）。界面设计如图所示。
您最近一年使用：0次
操作题
|
适中
(0.65)
【推荐2】有如下一个生活中常见的情况：
输入一个成绩，判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
（1）请为上面的程序设计流程图____ 。
（2）请把下面对应的代码填写完整。
Private Sub Command1_Click()
Dim x As Integer
x=____ (Text1.Text)
Select Case x
______
Text2.Text=“优秀”
Case x≧75
_____
_____
_____
Case Else
Text2.Text=“不及格”
End Select
End Sub
输入一个成绩，判断该成绩属于“优秀”、“良好”、“及格”还是“不及格”。
（1）请为上面的程序设计流程图
（2）请把下面对应的代码填写完整。
Private Sub Command1_Click()
Dim x As Integer
x=
Select Case x
Text2.Text=“优秀”
Case x≧75
Case Else
Text2.Text=“不及格”
End Select
End Sub
您最近一年使用：0次
，设计界面设计如下，请将打乱的代码进行排序。
