网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是______。
A．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
B．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End Sub
C．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
D．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub
参考答案
更多 “ 在窗体上从左到右有Text1、Text2两个文本框(见图)，要求运行程序时在Text1中输入—个分数后按回车键，则判断分数的合法性，若分数为0～100中的—个数，则光标移到Text2中；否则光标不动，并弹出对话框“分数错”。下面程序中正确的是______。A．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Va1(Text1) If a＞=0 Or a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End SubB．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) Ifa＞=0 And a＜=100 Then Text1.SetFocus Else Text2.SetFocus : MsgBox("分数错") End If End If End SubC．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＜0 And a＞100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End SubD．Private Sub Text1_KeyPress(KeyAscii As Integer) IfKeyAscii=13 Then '回车符的ASCII码是13 a=Val(Text1) If a＞=0 And a＜=100 Then Text2.SetFocus Else Text1.SetFocus : MsgBox("分数错") End If End If End Sub ” 相关考题
考题
窗体上有名称分别为Text1、Text2的2个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中问号（?）处应填入的内容是。Private Sub Text1_LostFocus（）Call CheckInput（Text1，500）End SubPrivate Sub Text2_LostFocus（）Call CheckInput（Text2，1000）End SubSub CheckInput（t As ?，x As Integer）If Val（t.Text）x ThenMsgBox"请重新输入!"End IfEnd SubA．TextB．SelTextC．ControlD．Form
考题
在窗体上从左到右有Text1、Text2两个文本框（见图），要求程序运行时，在Text1中输入1个分数后按回车键，则判断分数的合法性，若分数为0~100中的1个数，周围光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是（ ）。A．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 or a=100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubB．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 And a=100 ThenText1.SetFocusElseText2. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubC．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a0 And a100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd SubD．Private Sub Text1__KeyPress（KeyAscii AS Integer）If KeyAscii=13 Then ‘回车符的ACSII码是13a=Val（Text1）If a=0 And a=100 ThenText2.SetFocusElseText1. SetFocus ; MsgBox（“分数错”）End IfEnd IfEnd Sub
考题
以下是一个比赛评分程序。在窗体上建立一个名为Text1的文本框数组，然后画一个名为Text2的文本框和名为Command1的命令按钮。运行时在文本框数组中输入7个分数，单击“计算得分”命令按钮，则最后得分显示在Text2文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），如图所示。请填空。Private Sub Command1_Click（ ）Dim k As IntegerDim sum As Single, max As Single, min As Singlesum = Text1（0）max = Text1（0）min = ______For k = ______ To 6If max Text1（k） Thenmax = Text1（k）End IfIf min Text1（k） Thenmin = Text1（k）End Ifsum = sum + Text1（k）Next kText2 = （______） / 5
考题
在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。 现有如下事件过程 Private Sub Text1_Change（ ） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（ ）。A.DataAB.DataBC.aDataD.aBase
考题
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
考题
在窗体上从仨到右有Text1、Text2两个文本框，如图所示，要求程序运行时，在Text1 中输入1个分数后按回车键，则判断分数的合法性，若分数为0～100中的1个数，则光标移到Text2中；否则光标不动，并弹出对话框显示“分数错”。下列程序中正确的是（ ）。A.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii==13 Then 回车符的ASCIl码是13 a=Val(Text1) If a=0 Or a=100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End SubB.Private Sub Textl—KeyPress(KeyAscii As Integer) If KeyAseii=13 Then 回车符的ASCIl码是13 a=Val(Text1) If a=0 And a=100 Then Textl．SetFocus Else Text2．SetFocus：MsgBox("分数错") End If End If End SubC.Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then 回车符的ASCII码是13 a=Val(Text1) If a0 And a100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End SubD.Private Sub Text1_KeyPress(KeyAscii As Integer) If KevAscii=13 Then 回车符的ASCII码是13 a=Val(Textl) If a=0 Aad a=100 Then Text2．SetFocus Else Text1．SetFocus：MsgBox("分数错") End If End If End Sub
考题
在窗体上绘制两个文本框，名称分别为Text1和Text2。请设置适当的控件属性，并编写适当的事件过程，使得在运行时，若在Text1中每输入一个字符，则显示输入的内容，同时在Text2中显示一个“*”。若在Text2中每输入一个字符，则显示—今“*”，如下图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 execise40.vbp，窗体文件名为execise40.frm。
考题
在考生文件夹中有一个工程文件execise95.vbp及窗体文件execise95.frm。请在名为 Form1的窗体上绘制3个文本框，其名称分别为Text1、Text2和Text3，文本框内容分别设置为“计算机等级考试”、Visua1Basic和空白。然后绘制两个单选按钮，其名称分别为 Opt1和Opt2，标题分别为Change和Join。编写适当的事件程序。程序运行后，如果选中Change单选按钮并单击窗体，则Text1文本框中内容与Text2文本框中内容进行交换，并在Text3文本框中显示OK(如下图所示)：如果选中Join单选按钮并单击窗体，则把Text1和Text2的内容按Text1在前，Text2在后的顺序连接起来，并在Text3文本框中显示连接后的内容。修改后的文件仍按原文件名保存在原文件夹下。注意：不得修改已经给出的程序。在结束程序运行之前，必须选中一个单选按钮，并单击窗体。退出程序时必须通过单击窗体右上角的关闭按钮，否则可能无成绩。
考题
在窗体（Name属性为Form1）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入“同学们，”和“你们好”，然后单击命令按钮，则输出结果为多少？
热门标签
最新试卷
