在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click( ) a = 75 If a>60 Then k = 1 Elself a>70 Then k = 2 Elself a>80 Then k = 3 Elself a>90 Then k = 4 EndIf MsgBox k End Sub 窗体打开运行后,单击命令按钮,则消息框的输出结果是
设有如下窗体单击事件过程: Private Sub Form_Click( ) a = 1 For i = 1 To 3 Select Case i Case 1,3 a= a+1 Case 2,4 a= a+2 End Select Next i MsgBox a End Sub 打开窗体运行后,单击窗体,则消息框的输出的结果是
设有如下程序: Private Sub Command1_Click( ) Dim sum As Double, x As Double Sum = 0 n = 0 For i = 1 To 5 x=n/i n=n+1 sum=sum+x Next I End Sub 该程序通过For循环来计算一个表达式的值,这个表达式是
若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text1的文本框,且文本框的内容为空,然后编写如下事件代码: Private Function f(x As Long) As Boolean If x Mod 2 = 0 Then f = True Else f=False End If End Function Private Sub Command 1_Click( ) Dim n As Long n = Val(Me!text1) p = iif(f(n), "Even number", "Odd number") Me!Labell.Caption = n & "is" & p End Sub 窗体打开运行后,在文本框中输入21,单击命令按钮,则标签显示内容为__。
有如下用户定义类型及操作语句: Type Student Sno As String Sname As String Sage As Integer End Type Dim Stru As Student With Stu .SNo="200609001" .Sname="陈果果" .Age=19 End With 执行MsgBox Stu.Age后,消息框输出结果是__。
已知一个名为“学生”的Access数据库,库中的表“stud”存储学生的基本信息,包括学号、姓名、性别和籍贯。下面程序的功能是:通过下图所示的窗体向“stud”表中添加学生记录,对应“学号”、“姓名”、“性别”和“籍贯”的四个文本框的名称分别为tNo、tNmae、tSex和tRes。当单击窗体中的“增加”命令按钮(名称为Command1)时,首先判断学号是否重复,如果不重复则向“stud”表中添加学生记录;如果学号重复,则给出提示信息。 请依据所要求的功能,将如下程序补充完整。 Private Sub Form_Load( ) '打开窗口时,连接Access数据库 Set ADOcn = CurrentProject.Connection End Sub Dim ADOcn As New ADODB.Connection Private Sub Command1_Click( ) '增加学生记录 Dim strSQL As String Dim ADOrs As New ADODB.Recordset Set ADOrs.ActiveConnection = ADOcn ADOrs.Open "Select 学号 From Stud Where 学号=""+tNO+""" If Not ADOrs. __ Then '如果该学号的学生记录已经存在,则显示提示信息 MsgBox "你输入的学号已存在,不能增加!" Else '增加新学生的记录 strSQL="Insert Into stud(学号,姓名,性别,籍贯)" strSQL=strSQl+"Values('''+tNo+''', '''+tName+''', '''+tSex+''', '''+tRes+''')" ADOcn.Execute __ MsgBox "添加成功,请继续!" End If ADOrs. Close Set ADOrs=Nothing End Sub