程序设计练习四.doc

文档介绍：第四)
一、概念填空:(每题1分共5分)
, 字符占1个字节。
;
3. 是一种较好的设计方法,是面向对象程序设计方法的基础,基本结构包括顺序结构、选择结构和循环结构三种。
4. :在过程内定义的变量,只在过程内有效。
5. 可被程序中的任何窗体或过程引用,
答案:1、西文2、汉字3、结构化程序设计4、局部变量5、全局变量
二、VB程序填空:(每题2分共10分)
r As Integer
Dim size As Integer
Private Sub Form_Load()
Randomize
size =
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text1 = Trim(Text1)
Text1 = UCase(Text1)
End If
End Sub
Private mand1_Click()
r = Int( )
= * r
= False
= True
End Sub
Private mand2_Click()
r = Int(Rnd * 3 + 1)
= \ r '
= False '
= True
End Sub
Private mand3_Click()
= size
= True
= True
End Sub
mand1_Click()
Dim f!, c!
f = Text1
c = 5 / 9 * (f - 32)
Text2 = c
End Sub
Private mand2_Click()
Text1 = 9 / 5 * + 32
End Sub
mand1_Click()
i = Shell("C:\Program Files\Microsoft Office\Office\", 1)
End Sub
Private mand2_Click()
i = Shell( )
End Sub
mand1_Click()
Dim m%, n%, x%, y%
m = InputBox("输入总头数")
re: n = InputBox("输入总脚数")
If n Mod 2 <> 0 Then
MsgBox ("脚数为奇数,重新输入")
GoTo re
End If
If n < 2 * m Then
MsgBox ("脚数小于头数的倍数,重新输入")
GoTo r