填空题

在名为“Form1”的窗体上添加3个文本框(Text1、Text2和Text3)和1个命令按钮Command1，编写如下事件过程：
Private Sub Command1_Click()
Text3=Text1+Text2
End Sub
打开窗体Form1后，在Text1和Text2中分别输入5和10，然后单击命令按钮Comrnand1，则Text3中显示的内容为______。

【参考答案】

510
<上一题 目录 下一题>
热门 试题

填空题
人员基本信息一般包括：身份证号，姓名，性别，年龄等。其中可以作为主关键字的是______。
填空题
已知一个名为“学生”的Access数据库，库中的表“stud”存储学生的基本信息，包括学号、姓名、性别和籍贯。下面程序的功能是：通过下图所示的窗体向“stud”表中添加学生记录，对应“学号”、“姓名”、“性别”和“籍贯”的4个文本框的名称分别为tNo、tName、tSex、tRes。当单击窗体中的“增加”命令按钮（名为Command1）时，首先判断学号是否重复，如果不重复则向“stud”表中添加学生记录；如果学号重复，则给出提示信息。 请依据所要求的功能，将如下程序补充完整。 DimADOcnAsNewADODB.Connection PrivateSubFormLoad（） ’打开窗口时，连接Access数据库 SetADOen=CurrentProject.Connection EndSub PrivateSubCommand1_Click（） ’增加学生记录 DimstrSQLAsString DimADOrsAsNewADODB.Recordset SetADOrs.ActiveConnection=ADOcn ADOrs.Open Select学号FromStudWhere学号=’’+tNo+’’ IfNotADOrs.（14）Then ’如果该学号的学生记录己经存在，则显示提示信息 MsgBox’’你输入的学号己存在，不能增加!’’ Else ’增加新学生的记录 strSQL= InsertIntostud（学号，姓名，性别，籍贯） strSQL=strSQL+ Values（ +tNo+ ， +tName+ ， +tSex+ ， +tRes+ ） ADOcn.Execute（15） MsgBox 添加成功，请继续! EndIf ADOrs.Close SetADOrs=Nothing EndSub （14）填写（）；（15）填写（）
相关试题