如果输入的某个学生的学号对应的学生不存在,则在第二个文件框内显示“该生不存在”,第三个文本框不显示内容(如下图所示):如果输入的某个学生的学号对应的学生存在,但在宿舍表中没有该学号对应的记录,则在第二个文本框内显示该生的“姓名”,第三个文本框显示“该生不住校”。
单击“退出”按钮关闭表单。
A.一次查看各记录的“总计”字段的值
B.在“记录单”对话框中单击“条件”按钮,在“总计”栏输入“〉10000”,然后单击“下一条”按钮
C.按Ctrl+Q组合键,在出现的对话框的“总计”栏输入“〉10000”,再单击“确定”按钮
D.在“记录单”对话框中边疆单击“下一条”按钮
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。
编写如下通用过程: Sub proc(By Val num As Long,ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim n As Long, r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n,r Print r End Sub 程序运行后,单击命令按钮,在输入对话框中输入345,输出结果是【 】。