单项选择题

窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click()
Dim i As Integer,n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Next j
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是______。

A．2
B．3
C．4
D．5
<上一题 目录 下一题>
热门 试题

单项选择题
采用ADO完成对“教学管理.accdb”文件中“学生表”的学生年龄都加1的操作，程序空白处应填写的是______。 Sub SetAgePlus() Dim en As New ADODB.Connection Dim rs As New ADODB.Recordset Dimfd As ADODB.Field Dim strConnect As String Dim strSQL As String Set cn=CurrentProject.Connection strSQL= Select年龄from学生表 rs.Open strSQL,en,adOpenDynamic,adLockOptimistic,adCmdText Setfd = rs.Fields( 年龄 ) Do While Not rs.EOF fd=fd+1 ______ rs.MoveNext Loop rs.Close en.Close Set rs=Nothing Set cn=Nothing End Sub
A．rs.Edit
B．rs.Update
C．Edit
D．Update
单项选择题
执行下列程序段后，变量a和b的值分别是______。 a=100:b=50 If a＞b Then a=a-b Else b=b+a End If
A．50和50
B．100和50
C．100和150
D．150和100
相关试题