[单项选择]
在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为Text1），然后编写如下事件过程：
Private Sub Command1_Click（　）
x=Val(Text1.Text) Select Case x
Case 1,3
y=xx
Case Is>=10,Is<=-10
y=x
Case -10 To 10
y=-x End Select End Sub
程序运行后，在文本框中输入3，然后单击命令按扭，则以下叙述中正确的是（）。

A. 执行y=xx
B. 执行y=-x
C. 先执行y=x*x，再执行y=-x
D. 程序出错

更多"在窗体上画1个命令按扭（名称为Command1）和1个文本框（名称为T"的相关试题:

[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click（　） a=Text1.Text b=Text2.Text c=LCase (a) d=UCase (b) Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG

查看答案

[单项选择]

窗体上有名称为Command1的命令按钮和名称为Text1的文本框
　　Private Sub Command1_Click（　）
　　Text1.Text=”程序设计”
　　Text1.SetFocus
　　End Sub
　　Private Sub Text1_GotFocus（　）
　　Text1.Text=”等级考试”
　　End Sub
　　运行以上程序，单击命令按钮后

A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上

查看答案

[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click（　） a = InputBox("Enter an integer") b = InputBox("Enter an integer") Text1.Text = b + a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A. 108
B. 18
C. 810
D. 出错

查看答案

[单项选择]设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框，要求单击Command1按钮时可把光标移到文本框中，下列事件过程中正确的是
A. Private Sub Command1_Click()
B. Private Sub Command1_Click()
C. Private Sub Command1_Click()
D. Private Sub Command1_Click()

查看答案

[单项选择]在窗体(名称为Form1)上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是
A. Private Sub Text1_Change( ) Command1.Caption=“计算机等级考试” End Sub
B. Private Sub Command1_Cick( ) Caption=“计算机等级考试” End Sub
C. PrivateSubForm1_Click( ) Text1.Caption=“计算机等级考试” End Sub
D. PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub

查看答案

[单项选择]在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：　　Private Sub Command1_Click（　）　　　n = Val(Text1.Text)　　　For i = 2 To n　　　　For j = 2 To sqr(i)　　　　　If i Mod j = 0 Then Exit For　　　　Next j　　　　If j > Sqr(i) Then Print i　　　Next i　　End Sub　　该事件过程的功能是
A. 输出n以内的奇数
B. 输出n以内的偶数
C. 输出n以内的素数
D. 输出n以内能被j整除的数

查看答案

[单项选择]在窗体（名称为Forml）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（）。
A. Private Sub Text1_Change() CommandCaption="计算机等级考试" End Sub
B. Private Sub Commandl_Click() Caption=”计算机等级考试” End Sub
C. Private Sub Forml_Click() Text1.Caption="计算机等级考试" End Sub
D. PrivateSubCommandl Ulick() Text1.Text="计算机等级考试" End Sub

查看答案

[单项选择]窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Command1的命令按钮。设有如下的类型声明： Type Person name As String*8 major As String*20 End Type 当单击“Command1”按钮时，能够正确地把数据写入文件的程序段是______。
A. Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open"C:/dat dat" For Random As #1 Put #1, 1, p Close #1 End Sub
B. Private Sub Command1_Click() Dim p As Person name=Text1.Text major=Text2. Text Open"C:/dat dat" For Random As #1 Get #1, 1, p Close #1 End Sub
C. Private Sub Command1_Click() Dis p As Person name=Text1. Text major=Text2. Text open "C:/dat dat" For Random As #1 Len=Len( Put #1, 1, p Close #1 End Sub
D. Private Sub Command1_Click() Dim p As Person name=Text1. Text major=Text2. Text Open "C:/dat dat" For Random As #1=Len( Get #1, 1, p Close #1 End Sub

查看答案

[单项选择]窗体上有1个名称为Text1的文本框和1个名称为Command1.的命令按钮。要求程序运行时,单击命令按钮,就可把文本框中的内容写到文件out.txt中,每次写入的内容附加到文件原有内容之后。下面能够正确实现上述功能的程序是【】

查看答案

[单项选择]在窗体中添加一个命令按钮，名称为Command1；添加一个文本框，名称为Text1，然后编写如下程序： Private Sub Commandl Click（　） Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示
A. 25
B. 18
C. 36
D. 35

查看答案

我来回答:

提交