单项选择题

执行下列程序段后，变量S的值是______。
Dim S As Integer,n As Integer
S=0:n=1
Do While n＜100
S=S+n
n=n+1
Loop

A．5050
B．4950
C．3000
D．4000
<上一题 目录 下一题>
热门 试题

单项选择题
窗体上有一个名为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
相关试题