单选题
窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为"计算"的命令按钮Co mmand1，并编写了以下程序：
窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为"计算"的命令按钮Co mmand1，并编写了以下程序：
Private Sub Co mmand1＿Click（）
Call Cale （HV．Value ，HT．Value）
End Sub
Public Sub Cale（x ASInteger ，y ASInteger）
Text1．Text ＝x＊y
End Sub
运行程序，单击"计算"按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是（ ）。
发布于 2022-05-11 09:56:17
登录后免费查看答案
关注者
0
被浏览
6
1 个回答
推荐阅读
-
窗体上有两个水平滚动条HV、HT，还有一个文本框Text1和一个标题为“计算”的命令按钮Command1，并编写了以下程序：Private Sub Command1_ClickO Call Cale (HV.Value, HT.Value)End SubPublic Sub Cale(x AS Integer , y AS Integer) Text1.Text = x* yEnd Sub运行程序，单击“计算”按钮，可根据速度与时间计算出距离，并显示计算结果。对以上程序，下列叙述中正确的是
2022-05-11 关注 0 浏览6 1答案
-
窗体上有一个名称Text1的文本框，一个名称为Co mmand1的命令按钮。窗体文件的程序如下：Private Type xa As Integerb As IntegerEnd TypePrivate Sub Co mmand1＿Click（）Di my As x y ．a＝InputBox（＂＂）If y ．a＼2＝y ．a／2Theny ．b ＝y ．a＊y ．a Elsey ．b ＝Fi x（y ．a／2）End IfText1．Text ＝y ．bEnd Sub对以上程序，下列叙述中错误的是（ ）。
2022-05-11 关注 0 浏览12 1答案
-
设有如图所示窗体和以下程序： Private Sub Co mmand1＿Click（）Text1．Text ＝＂Visual Basic＂End SubPrivate Sub Text1＿LostFocus（）If Text1．Text ＜＞＂BASIC＂ThenText1．Text ＝＂＂Text1．SetFocus End IfEnd Sub程序运行时，在Text1文件框中输入"Basic"（如图所示），然后单击Co mmand1按钮，则产生的结果是（ ）。
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（其Name 属性为Co mmand1），然后编写如下事件过程：Private Sub Co mmand1＿Click（）x＝0Do While x＜50x＝（x＋2）＊（x＋3）n ＝n ＋1LoopText1．Text ＝Str（n）Text2．Text ＝Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Co mmand1），然后编写下列事件过程：Private Sub Co mmand1＿Click（）x＝0DO While x＜50x＝（x＋2）＊（x＋3）n ＝n ＋lLoopText1．Text ＝Str（n）Text2．Text ＝Str（x）End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（ ）。
2022-05-11 关注 0 浏览10 1答案
-
设工程文件包含两个窗体文件Form1．frm、Form2．frm 及一个标准模块文件Module1．bas ，两个窗体上分别只有一个名称Co mmand1的命令按钮。Form1的代码如下：Public X As IntegerPrivate Sub Form＿load（）x＝1y ＝5End SubPrivate Sub Co mmand1＿Click（）Form2．ShowEnd SubForm2的代码如下：Private Sub Co mmand1＿Click（）Print Form1．x，yEnd SubModule1的代码如下：Public y As Integer运行以上程序，单击Form1的命令按钮Co mmand1，则显示Form2；再单击Form2上的命令按钮Co mmand1，则窗体上显示的是（ ）。
2022-05-11 关注 0 浏览13 1答案
-
在窗体（Name 属性为Form1）上画两个文本框（其Name 属性分别为Text1和Text2）和一个命令按钮（Name属性为Co mmand1），然后编写如下两个事件过程：Private Sub Co mmand1＿Click（）a＝Text1．Text ＋Text2．Text Print aEnd SubPrivate Sub Form＿Load（）Text1．Text ＝＂＂ Text2．Text ＝＂＂End sub程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为（ ）。
2022-05-11 关注 0 浏览15 1答案
-
设窗体上有一个文体框Text1和一个命令按钮Co mmand1，并有以下事件过程：Private Sub Co mmand1＿Click（ ）Di mS As Stri ng ，ch As Stri ngS＝＂＂For k ＝1TO Len（Text1）ch ＝Mid（Text1，k ，l）S＝ch ＋SNext kText1．Text ＝SEnd Sub程序执行时，在文本框中输入"Basic"，然后单击命令按钮，则Text1中显示的是（ ）。
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序：Private Sub Command1_Click()Dim x,y,z As Integerx=5y=7z=0Text1.text=“”Call P1(x,y,z)Text1.Text=Str(x)End SubSub P1(ByVal a As Integer,ByVal b As Integer,c As Integer)c=a+bEnd Sub程序运行后，如果单击命令按钮，则在文本框中显示的内容是
2022-05-11 关注 0 浏览17 1答案
-
在窗体上画一个名称为Co mmand1的命令按钮，然后编写如下程序：Public Enumsa＝4b ＝3End EnumPrivate Sub Co mmand1＿Click（）Di mx As Integerx＝aIf x＞＝3ThenMsgBox ＂Pass ！＂End Sub运行程序，其结果是（ ）。
2022-05-11 关注 0 浏览8 1答案
