好文档 - 专业文书写作范文服务资料分享网站

高中信息技术考试vb程序题及答案

天下 分享 时间: 加入收藏 我要投稿 点赞

高中信息技术考试vb

程序题及答案

内部编号:(YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128)

第一套

1、'填空完成程序,使得当单击窗体后,Label1上显示100以内(含100)偶数之和。

Private Sub Form_Click() Dim i As Integer '定义变量i

Dim s As Integer '定义变量s,用于存放100以内(含100)偶数的和 s = 0

For i = 2 To 100 Step 2

s = s+i Next i

Label1.Caption = Str(s) End Sub

2、'填空完成程序,使得当在Text1中输入圆的半径后,单击\计算\按钮,计算圆的周长,并在Text2中显示出来。

Private Sub Command1_Click() Const pi = 3.14 '定义符号常量

Dim c As Single '定义周长c为单精度型

Dim r As Single '定义半径r为单精度型

r = Val(text1.text) c = pi *2*r text2.text = c End Sub 第二套

'填空完成程序,计算

s=1!+2!+3!+…+8!的值并在窗体上打印出结果。

Private Sub Form_Click() Dim s As Single ' s变量用于存放计算结果 Dim p As Single Dim i As Integer '定义一个循环变量 '给s赋初值 s = 0 '给p赋初值 p = 1

For i = 1 To 8 p = p * i

s =s+p Next i Print \ End Sub

'填空完成程序,使得当单击窗体后,计算1+2+3+…+N>500的N的最小值,并在文本框Text1中显示出来。

Private Sub Form_Click() Dim s As Integer '变量s存放和

Dim n As Integer '为s赋初值 s = 0 '为n赋初值 n =0 Do

n = n + 1 s = s + n Loop While s <= 500 Text1.Text = Str(n) End Sub 第三套

'举重比赛中,60公斤级选手体重不能超过60公斤。

'填空完成程序,使得在文本Text1中输入一个大于60的数时,标签Label1显示\超重!不能参赛!\; '当输入一个小于等于60的数时,标签Label1显示\合格,可以参赛!\。

Private Sub Command1_Click()

Dim t As Single '定义变量

t,值由文本框Text1读入 t = Val(text1.text) If > Then

Label1.Caption = \超重!不能参赛!\ Else

Label1.Caption = \合格,可以参赛!\ End if End Sub

'填空完成程序,使得单击窗体后,计算出1+2+3+…+N<500的N的最大值,并在文本框Text1中显示出来。

高中信息技术考试vb程序题及答案

高中信息技术考试vb程序题及答案内部编号:(YUUT-TBBY-MMUT-URRUY-UOOY-DBUYI-0128)第一套1、'填空完成程序,使得当单击窗体后,Label1上显示100以内(含100)偶数之和。
推荐度:
点击下载文档文档为doc格式
5hkvm91wja667gj1yjqg01k8300x4z01cm1
领取福利

微信扫码领取福利

微信扫码分享