[vb真题]2016年福建高职招考本科技能第三场

第一题

题目

在窗体上画一个名为 Cmd1，标题为“移到左上角”的命令按钮。程序运行后，若单击按钮，则按钮移到窗体的左上角；若单击窗体，则窗体标题显示为“按钮位移”。

代码

#Private Sub Command1_Click()
Command1.Left = 0
Command1.Top = 0
#End Sub

#Private Sub Form_Click()
Form1.Caption = "按钮位移"
#End Sub

第二题

题目

程序运行后，单击按钮，实现求输入数的阶乘，运算结果显示在 Label2 中。例如：5 的阶乘是指 5!=12345，值为 120。

代码

a = Val(Text1)
x = 1
For i = 1 To a
x = x * i
Next i
Label2 = a & "的阶乘为： " & x

第三题

题目

程序运行后，单击按钮，实现在窗体上显示1000以内的所有“守形数”。
说明：守形数是指一个整数满足X2=aX的形式，则称X为守形数。例如52=25，252=625，则5,25都是一个守形数。
算法设计思路：循环中先计算给定数的平方值，然后判断平方值对10或者100或者1000进行求模取余的结果是否等于该数本身，如果能满足就是守形数。

代码

Print "1000以内的守形数有："
For i = 1 To 1000
a = i ^ 2
If a Mod 10 = i Or a Mod 100 = i Or a Mod 1000 = i Then Print i
Next i