VB考前辅导班模拟考试卷ZBSJTDA.docVIP

用输入对话框输入x，根据下式计算对应的y，并在窗体上输出y的值。 +sinx x10 ?y= 0 x=10 2x3+6 x10 程序写在命令按钮Command1的Click事件中。 参考答案： Private Sub Command1_Click() Dim x As Single , y As Single x = Val(InputBox(please input a number)) Select Case x Case Is 10 y = Sqr(x) + Sin(x) Case Is = 10 y = 0 Case Is 10 y = 2 * x ^ 3 + 6 End Select Print y End Sub 编写一个程序，根据上网时间计算上网费用，上机时间用输入对话框输入。公式如下： 同时，为了鼓励多上网，每月最多不超过600元。 参考答案： Private Sub Command1_Click() Dim times As Single, money As Single times = Val(InputBox(please input a number)) Select Case times Case Is 10 money = 50 Case Is 60 money = 6 * times Case Is = 60 money = 4 * times End Select If money 600 Then money = 600 Print times, money End Sub 计算s=1+x/2+x 2/3+x 3/4+ … +x n-1/n；n，x值从键盘输入。 参考答案： Private Sub Command1_Click() Dim n As Integer, x As Single, s As Single, i As Integer x = Val(InputBox(please input x)) n = Val(InputBox(please input n)) s = 0 For i = 1 To n s = s + x ^ (i - 1) / i Next i Print s End Sub 用以下公式计算Sin(x)的值，当最后一项的绝对值小10-7时停止计算。X由键盘输入。程序写在窗体的click事件中。 参考答案： Private Sub Command1_Click() Dim x As Single, s As Single, item As Single, n As Integer x = Val(InputBox(please input x)) s = 0 : n = 2 : item = x While Abs(item) 0.0000001 s = s + item item = -item * x * x / n / (n + 1) n = n + 2 Wend Print s End Sub 编写程序，单击窗体时在窗体上打印出如下所示的图形（要求使用多重循环实现）。 * *** ***** ******* ********* ******* ***** *** * 参考答案： Private Sub Form_click() Dim i As Integer, j As Integer For i = 1 To 5 Print Space(5 - i); For j = 1 To 2 * i - 1 Print *; Next j Print Next i For i = 1 To 4 Print Space(i); For j = 1 To 9 - 2 * i Print *; Next j Print Next i End Sub