2017年江苏省信息技术学业水平试卷(12)
发布:2025/1/2 18:0:3
一、操作题(每题10分,6题共60分)
-
1.打开“Z:\12\工程1.vbp”,完善Command1_Click事件代码并保存.
实现功能:在Text1中输入一个代表秒数的整数后,单击“计算”按钮后,在Label1、Label2、Label3中显示对应的小时、分钟和秒数.如在Text1中输入“3672”,Label1、Label2、Label3中分别显示“1”、“1”、“12”,即1小时1分12秒.
Private Sub Command1_Click ( )
Dim h As Integer
Dim m As Integer
Dim s As Integer
Dim ss As Integer
ss=Val(①)
h=②
m=(ss-h*3600)\60
s=(ss-h*3600)Mod ③
Label1.Caption=Str(h)
Label2.Caption=Str(m)
Label3.Caption=Str(s)
End Sub.组卷:8引用:1难度:0.7 -
2.打开文件“考生文件夹\26\工程1.vbp”,完善Command1_Click及Command2_Click事件代码并保存。
在窗体上有一个“标签”控件Label1和两个“命令按钮”控件,命令按钮command1上显示“上移”,另一个命令按钮command2上显示“下移”。
实现功能:
(1)设置标签控件Label1属性,显示文字为“欢迎进入算法与程序设计”;
(2)单击“command1”时,Label1上移100个单位;单击“command2”,Label1下移100个单位。组卷:2引用:1难度:0.5
一、操作题(每题10分,6题共60分)
-
5.打开文件“考生文件夹\60\工程1.vbp”,完善Command1_Click事件代码并保存.
实现功能:从文本框Text1中输入一个圆的半径,计算圆的面积,把结果输出到文本框Text2中.
Private Sub Command1_Click ( )
Const pi=3.14
Dim r As Single
Dim s As Single
r=Val(①)
s=②
Text2.Text=③
End Sub.组卷:8引用:1难度:0.1 -
6.打开“Z:\414\工程1.vbp”,进行以下操作并保存。
实现功能:
(1)将label1标签上的文字设置为“测试系统”;
(2)把窗体中显示用户名的文本框的字体设置为“楷体_GB2312”;
(3)在窗体的相应位置添加一个“确定”的命令按钮。
控件名请采用默认值。最终效果图如下:
(过程省略)组卷:1引用:1难度:0.6