VB程序设计专升本复习题.docVIP

1．编程在文本框text1中输入华氏温度F，将其转换成摄氏温度C，将C显示在文本框text2中；其中转换公式：C=5/9*(F-32)。 Private Sub Command1_Click() C = Val(Text1.Text) F = 9 * C / 5 + 62 Text2 = F F = Val(Text1.Text) C = 5 * (F - 32) / 9 Label1 = C End Sub Private Sub Command2_Click() Text1.Text = Label1.Caption = End Sub 2．已知Fibonacci数列（1，1，2，3，5，8，…）的第i项（i=3）为Fi-2+Fi-1，编程打印该数列的前20项，每行打印5个数。 Private Sub Form_Click() t1 = 1 t2 = 1 b = 2 Print t1; t2; For i = 1 To 18 t3 = t1 + t2 Print t3; b = b + 1 If b Mod 5 = 0 Then Print t1 = t2 t2 = t3 Next i End Sub 3．编程计算闭区间[1,100]