网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
【单选题】下列代码实现的功能是：若在窗体中一个名为tKcnum的文本框中输入“课程代码”，则将“课程”表中对应的“课程名称”显示在另一个名为tKcname的文本框中。 Private Sub tKcnum_AfterUpdate（) Me!tKcname = DLookup （"课程名称","课程","课程代码='" & 【 】& "'") End Sub 则程序中【 】处应该填写______。
A．Me!tKcnum
B．[Me]![tKcnum]
C．[Me].[tKcnum]
D．Me[tKcnum]
参考答案和解析
弹出对话框，显示“你好！”
更多 “【单选题】下列代码实现的功能是：若在窗体中一个名为tKcnum的文本框中输入“课程代码”，则将“课程”表中对应的“课程名称”显示在另一个名为tKcname的文本框中。 Private Sub tKcnum_AfterUpdate（) Me!tKcname = DLookup （"课程名称","课程","课程代码='" 【 】 "'") End Sub 则程序中【 】处应该填写______。A．Me!tKcnumB．[Me]![tKcnum]C．[Me].[tKcnum]D．Me[tKcnum]” 相关考题
考题
在窗体中使用一个文本框（名为 x ）接受输入值，有一个命令按钮 test ，事件代码如下：Private Sub test_Click()y = 0For i=0 To Me!xy=y+2*i+1Next iMsgBox yEnd Sub打开窗体后，若通过文本框输入值为 3 ，单击命令按钮，输出的结果是 【 12 】
考题
在窗体中使用一个文本框（名为 num1 ）接受输入值，有一个命令按钮 run13 ，事件代码如下：Private Sub run13_Click()If Me!num1 = 60 Thenresult = " 及格 "ElseIf Me!num1 = 70 Thenresult = " 通过 "ElseIf Me!num1 = 80 Thenresult = " 合格 "End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为 85 ，单击命令按钮，输出结果是 【 13 】
考题
在窗体上画1个命令按钮和1个文本框，其名称分别为Command1和Text1，然后编写如下代码：Dim SaveAll As StringPrivate Sub Command1_Click（）Text1.Text=Left（UCase（SaveAll），4）End SubPrivate Sub Text1_KeyPress（KeyAscii As Integer）SaveAll=SaveAll+Chr（KeyAscii）End Sub程序运行后，在文本框中输入abcdefg，单击命令按钮，则文本框中显示的内容是______。
考题
在窗体上添加一个命令按钮(名为Conunand1)和一个文本框(名为Text1)，并在命令按钮中编写如下事件代码： Private Sub Command1_Click() m=2170 n=Len (Str$ (m) +Space (5)) Me! Text1=n End Sub打开窗体运行后，单击命令按钮，在文本框中显示( )。A．5B．8C．9D．10
考题
在窗体中有一个文本框Test1，编写事件代码如下： Private Sub Form_Click() X=Val(InputBox("输入X的值")) Y=1 If X＜＞0 Then Y=2 Text1.Value=Y End Sub 打开窗体运行后，在输入框中输入整数12，文本框Text1中输出的结果是( )。A．1B．2C．3D．4
考题
在窗体中添加一个命令按钮(名为Command1) 和一个文本框(名为Text1) ，并在命令按钮中编写如下事例代码： Private Sub Command1_Click( ) Str1="981765" Str2="65" n=InStr(Str1,Str2) Me.Text1=n End Sub 窗体打开运行后，单击命令按钮，在文本框中显示______。A．4B．5C．6D．7
考题
在窗体上画一个命令按钮和一个文本框，并将窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Command1_Click() Text1.Text = Ucase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii) End Sub 程序运行后，在键盘上输入abcdefg，单击命令按钮，则文本框中显示的内容为A．abcdefgB．不显示任何信息C．ABCDEFGD．出错
考题
若窗体中已有一个名为Cmd的命令按钮、一个名为Label1的标签和一个名为Text1的文本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(x As Long) As BooleanIf x Mod 2=0 Thenf=FalseElsef=TrueEnd IfEnd FunctionPrivate Sub Cmd_Click( )Dim n As Longn=Val(Me! text1)p=IIf(f(n), "奇数“，"偶数")Me! Labell. Caption=n"是"pEnd Sub窗体打开运行后，在文本框中输入11，单击命令按钮，则标签显示内容为【 】。
考题
在窗体上添加文本框Text1，然后编写下列程序： Private Sub Form_Load() Text1.Text=" " End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) Char=Chr(KeyAscii+1) KeyAscii=Asc(Ucase(Char)) End Sub Private Sub Command1_Click() Print Text1.Text End Sub 程序运行后，在文本框中依次输入1、2、3、a、b、c，单击命令按钮，则窗体上显示的内容是A．23BCDB．ABCC．!@#ABCD．123abc
考题
在已建窗体中有一命令按钮(名为Commandl),该按钮的单击事件对应的VBA代码为:Private SuB command
在已建窗体中有一命令按钮（名为Commandl），该按钮的单击事件对应的ＶBA代码为：Private SuB commandl_Click()SuBT.Form.RecordSource = “select*From 雇员”End SuB单击该按钮实现的功能是A．使用select命令查找“雇员”表中的所有记录B．使用select命令查找并显示“雇员”表中的所有记录C．将suBt窗体的数据来源设置为一个字符串D．将suBt窗体的数据来源设置为“雇员”表
考题
在窗体上画两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click()Text 1="VB programming"Text 2=Text 1Text 1="ABCD"End Sub程序运行后，单击命令按钮，文本框Text 2中显示的内容为【 】。
考题
设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=" " Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer， Shift As Integer，X As Single，Y As Single) Print“程序设计” End Sub Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer) Print "Visual Basic"； End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是A．Visual BasicB．程序设计C．Visual Basic程序设计D．a程序设计
考题
有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text33个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击退出按钮则退出。请将下列程序填空补充完整。Private Sub Command1_Click()Me！Text1＝""Me！Text2＝""Me！Text3＝""Me！Text4＝""End SubPrivate Sub Command2_Click()If Me！Text1＝""Or Me！Text2＝""Or Me！Text3＝""ThenMsgBox "成绩输入不全"ElseMe！Text4＝(【 】＋Val(Me！Text2)＋Val(Me！Text3))/3【 】End SubPrivate Sub Command3_Click()Docmd.【 】End Sub
考题
在窗体上画一个命令按钮和一个文本框，并把窗体的KeyPreview属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Command1_Click() Text1.Text=UCase(SaveAll) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAseii) End Sub 程序运行后，在键盘上输入“abcdefg”，单击命令按钮，则文本框中显示的内容为 ______ 。A．abcdefgB．不显示任何信息C．ABCDEFGD．出错
考题
设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text="" Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single) Print"程序设计" End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print"Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是______。A． Visual BasicB．程序设计C．Visual Basic程序设计D．a程序设计
考题
在考生文件夹下有“学生”数据库。(1) 在“课程”窗体中添加“检验数据”按钮，实现检验数据的功能，当课程“课程名称”输入值为空时，按下该按钮显示如图所示消息框。(2) 在“课程”窗体中添加“关闭窗体”按钮，编程实现退出窗体。
考题
若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框，且文本框的内容光焕发为空，然后编写如下事件代码： Private Function fx As Long． As Boolean If x Mod 2 =0 Then f =True Else f =False End If End Function Privare Sub Commandl_Click． Dim n As Ling n =ValMeltextl． p=Iiffn．,”Even number”,”Odd number’ Me!Labell.Caption=n＆“is” ＆p End Sub 窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为 【12】
考题
设窗体上有一个名为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1. Text="" Text1. SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sinqle) Print"程序设计" End Sub Private Sub Text1_Keynown(KeyCode As Integer, Shift As Integer) Print "Visual Basic"; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上最示的内容是A．Visual BasicB．程序设计C．Visual Basic程序设计D．a程序设计
考题
在窗体中使用一个文本框名为n．接受输入的值，有一个命令按钮run，事件代码如下： Private Sub run_Click( ) result = "" For i = 1 To Me!n For j = 1 To Me!n result = result + "*" Next j result = result + Chr(13) + Chr(10) Next i MsgBox result End Sub 打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是A． * * * * * * * * * * * * * * * *B． * * * * * * * * * * * * * * * *C． * * * * * * * * * * * * * * * * * * * * * * * * * * * *D． * * * * * * * * * * * * * * * *
考题
在窗体中使用一个文本框名为x．接受输入值，有一个命令按钮test，事件代码如下： Private Sub test_Click y = 0 For i = 0 To Me!x y = y + 2 * i + 1 Next i MsgBox y End Sub 打开窗体后，若通过文本框输入值为3，单击命令按钮，输出的结果是 【12】 。
考题
在窗体中使用一个文本框名为num1．接受输入值，有一个命令按钮run13，事件代码如下： Private Sub run13_Click If Me!num1 = 60 Then result = "及格" ElseIf Me!num1 = 70 Then result = "通过" ElseIf Me!num1 = 85 Then result = "合格" End If MsgBox result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是 【13】 。
考题
若窗体中已有一个名为Command1的命令按钮、一个名为Labell的标签和一个名为Text1的文 本框，且文本框的内容为空，然后编写如下事件代码：Private Function f(X As Long)As BooleanIf x Mod2=0 Thenf=TrueElsef=FalseEnd IfEnd FunctionPrivate Sub Command1_ Click()Dim n As Longn=Val(Me!text1)p=Ⅱf(f(n)，"Even number"，"Odd number")Me!Labell.Caption=n "is" pEnd Sub窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【 】。
考题
在窗体中使用一个文本框(名为n．接受输入的值，有一个命令按钮run，事件代码如下：Private Sub run_Click( ．result = For i= 1 To Me!nFor j = 1 To Me!nresult = result + *Next jresult = result + Chr(13． + Chr(10．Next iMsgBox resultEnd Sub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图形是
考题
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框，事件代码如下： Private Sub Command1_Click Dim a(10)As Integer，b(10)As Integer n=3 For i=1 T0 5 a(i)=i b(n)=2*n+i Next i Me!Text1=a(n)+b(n) End Sub 打开窗体，单击命令按钮，文本框Text1中显示的内容是（ ）。A.13B.14C.15D.16
考题
在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load () Show Text1.Text = " " TextSetFocus End Sub Private Sub Command1 Click() TextText= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______。A．abodefgB．不显示任何信息C．ABCDEFGD．出错
考题
在窗体中使用一个文本框(名为num1)接受输入值，有一个命令按钮mn13，事件代码如下：Private Sub run13_Click()If Me!num1=60 Thenresult="及格"Elself Me!num1=70 Thenresult="通过"ElselfMe!numl=85 Thenresult="合格"End IfMsgBox resultEnd Sub打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是【 】。
考题
在窗体中绘制两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下事件过程：Private Sub Command1_Click()Text1＝"VB programming"Text2＝Text1Text1＝"ABCD"End Sub程序运行后，单击命令按钮，文本框Text2中显示的内容为【 】。
考题
（ 32 ） 在窗体上添加一个命令按钮 （ 名为 Command1 ） 和一个文本框 （ 名为 Text1 ） ， 并在命令按钮中编写如下事件代码：Private Sub Command1_Click( )m=2.17n=Len(Str$(m)+Space(5))Me!Text1 =nEnd Sub打开窗体运行后，单击命令按钮，在文本框中显示A ） 5B ） 8C ） 9D ） 10
热门标签
最新试卷