纠错
全专业资料、题库、学位、网课
最高直省2344元
上千+科次精品网课
买网课即送全真模考题库
五千+科次教材资料
电子资料满三件9折
五千+科次在线题库
全真呈现历年考试试题
1、[单选题]Private Sub Command1_Click()
x = 0
Do While x < 50
x = (x + 2) * (x + 3)
n = n + 1
Loop
Text1.Text = Str(n)
Text2.Text = Str(x)
End Sub
程序运行后,单击Command1按钮,在两个文本框中显示的值分别为( )。
2、[单选题]Private Sub Form_Click()
Dim c As Integer, j As Integer, k As Integer
k = 1
c = 2
For j = 1 To 5
If j > 3 Then
c = c + 5
Exit For
Else
k = k + 1
End If
Next j
Print c, k
End Sub
程序运行后,单击窗体,在窗体上显示的c,k的值分别是( )。
3、[单选题]Private Sub Command1_Click()
Dim x As Integer
Static s As Integer
x = Val(InputBox("请输入一个正整数="))
If x < 5 Then
s = s * x
Else
s = s + x
End If
Text1.Text = "s=" & Str(s)
End Sub
程序运行后,连续3次单击Command按纽,且设输入的数据为5、4、3时,文本框Text1中显示的值为( )。
4、[单选题]Private Sub Form_Click()
Dim x As Integer
Static y As Integer
x = x + 2
y = x + y
Form1.Print "x="; x, "y="; y
End Sub
程序运行后三次单击窗体,Form1上的输出结果为( )。
5、[判断题]使用Circle方法在窗体Form1上以(15,15)为圆心,10 为半径画园,具体形式为 Form1. Circle(15,15),10。( )
Copyright © 2010 - 2023 湖南求实创新教育科技有限公司 All Right Reserved.
温馨提示:如您需要的资料本网暂时没有,请于工作日08:00-18:00,点击这里,联系客服及时补充资料。