在窗体中有一个文本框Textl,编写事件代码如下: Private Sub Form_Click() X=val(Inputbox("输入x的值")) Y=1 If X<>0 Then Y=2 Textl.Value=Y End Sub 打开窗体运行后,在输入框中输入整数12,文本框Textl中输出的结果是( )。
在窗体中有一个命令按钮Commandl和一个文本框Textl,编写事件代码如下: Private Sub Commandl_Click() For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Textl.value=Str(x) End Sub 打开窗体运行后,单击命令按钮,文本框Textl输出的结果是( )
在窗体中有一个命令按钮Commandl,编写事件代码如下: Private Sub Commandl_Click() Dim s As Integer S=P(1)+P(2)+P(3)+P(4) debug.Print S End Sub Public Function P(N AS Integer) Dim Sum As Integer Sum=0 For i=1 To N Sum=Sum+i Next i P=Sum End Function 打开窗体运行后,单击命令按钮,输出结果是( )。
下列过程的功能是:通过对象变量返回当前窗体的Recordset属性记录集引用,消息框中输出记录集的记录(即窗体记录源)个数。 Sub GetRecNum() Dim rs As Object Set rs=Me.Recordset MsgBox ___________ End Sub 程序空白处应填写的是( )。
在窗体中有两个文本框分别为Textl和Text2,一个命令按钮Commandl,编写如下两个事件过程: Private Sub Commandl_Click() a=Textl.Value+Text2.Value MsgBox a End Sub Private Sub Form_Load() Textl.Value="" Text2.Value="" End Sub 程序运行时,在文本框Textl中输入78,在文本框Text2中输入87,单击命令按钮,消息框中输出的结果为 __ 。
某次大奖赛有7个评委同时为一位选手打分,去掉一个最高分和一个最低分,其余5个分数的平均值为该名参赛者的最后得分。请填空完成规定的功能。 sub commandl_Click() Dim mark!, aver!, i%, maxl!, minl! aver=0 For i=1 To 7 mark=InputBox("请输入第"& i &"位评委的打分") If i=1 Then maxl=mark:minl=mark Else If mark < minl Then minl = mark ElseIf mark>maxl Then __ End If End If __ Next i aver = (aver-maxl-minl)/5 MsgBox aver End sub
“学生成绩”表含有字段(学号,姓名,数学,外语,专业,总分)。下列程序的功能是:计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句,使程序实现所需要的功能。 Private Sub Commandl_Click() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim zongfen As ADODB.Field Dim shuxue As ADODB.Field Dim waiyu As ADODB.Field Dim zhuanye As ADODB.Fieid Dim strSQL As String Set cn = CurrentProject.Connection strSQL = "Select * from成绩表" rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText Set zongfen = rs.Fields("总分") Set shuxue=rs.Fields("数学") Set waiyu = rs.Fields("外语") Set zhuanye = rs.Fields("专业") Do While __ zongfen = shuxue + waiyu + zhuanye __ rs.MoveNext Loop rs.Close cn.Close Set rs = Nothing Set cn = Nothing End Sub