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

Print

Next i End Sub 第九套

'填空完成程序，使得单击\显示\按钮时，Text1、Text2分别显示变量x、y的值。

Private Sub Command1_Click() Dim x, y As Integer x = 10 y = 100 If x < y Then

'以下三条语句交换x,y的值 t = x x = y y = t End If

Text1.Text = Str(x) 6

Text2.Text = Str(y) End Sub

'填空完成程序，使得单击\显示\按钮后，在窗体上显示如图99乘法表。 Private Sub Command1_Click() Dim i As Integer Dim j As Integer For i = 1 To 9 Step 1

Print \For j = 1 To 9 Print i*j Print vbTab; Next j print Next i End Sub 第十套

'填空完成程序，使得在Text1中输入一个数，单击\判断\按钮后，判断这个数是奇数还是偶数

'并在Label1中显示\奇数\或\偶数\出来。 Private Sub Command1_Click() Dim a As Single Dim b As Single

'从Text1中读入这个数,并保存在变量a中 a = Val(text1.text) b = a Mod 2 If b = 0 Then

Label1.Caption = \偶数\Else

Label1.Caption = \奇数\endif End Sub

'填空完成程序，使得单击\显示\按钮后，随机产生10个属于区间[0，100)的自然数，

'并保存于数组a中，然后在窗体上显示这10个数中的最大值。 Private Sub Command1_Click()

Dim a(9) As Integer Dim max As Integer Dim I As Integer Me.Cls Print Randomize

For i = 0 To 9 Step 1 a(i) = Int(Rnd * 100) Print a(i) Next i 7

max = a(0) For i = 1 To 9 If max < a(i) Then max = a(i) End If Next i

Print \这10个自然数中的最大值=\End Sub

'填空完成程序:单击\计算5!\按钮后，Text1显示5!的值。 Private Sub Command1_Click()

Dim a As Integer Dim i As Integer a = 1

For i = 2 To 5 a = a*i Next __i___

Text1.Text = Str(a) End Sub 第十四套

'某公司每年的销售收入均比前一年增长10个百分点，按此速度，需要多少年可以实现销售收入翻两番

(即4倍)的目标。

'填空完成程序，使得当单击窗体后，在窗体上输出问题答案。 Private Sub Form_Click()

Dim i As Single

Dim s As Integer '设s为所求年数,定义为整型,结果由窗体输出 i = 1 s = 0

Do While ___i<=4_____ i = _i*1.1_______ s=s+1 Loop

Print \End Sub

'在横线处添加代码实现单击该按钮，窗体的背景色由原来的默认色变为红色(红:&HFF&)

Private Sub Command1_Click() backcolor= &HFF& End Sub 第十五套

'已知一元二次方程的二次项系数、一次项系数、常数项分别为a、b、c，其中a不等于0。

'填空完成程序，求方程的根。要求:如果方程无实数根，则输出\无实数根\，否则输出两个实数根。

Private Sub Command1_Click() Dim a, b, c, d As Single 8

Dim x1, x2 As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text)

If a < > 0 Then '判断a是否等于0 d =b^2-4*a*c

If d >= 0 Then '判断是否有实数根 x1 = (-b + Sqr(d)) / (2 * a) x2 = (-b - Sqr(d)) / (2 * a)