以下程序的功能是在程序运行后,单击命令按钮,输出如下结果: 1 4 7 2 5 8
A.BCD和10
B.1234和100
C.ABCD和100
D.1234和10
A.在控制面板的“卸载程序”窗口中,选中程序后单击工具栏中的“卸载”按钮
B.在控制面板的“卸载程序”窗口中,选中程序右击鼠标,在菜单中选择“卸载”命令
C.选中程序图标,直接按“Delete”键
D.利用文件名为“Uninstall.exe”的卸载程序
在窗体上画—个命令按钮,其名称为Command1,然后编写如下程序: Function M(x As Integer,y As Integer) M=IIf(x>y,x,y) End FUNction Private Sub Command1 Click() Dim a As Integer,b As Integer a=100 b=200 Print M(a,B0 End Sub 程序运行后,单击命令按钮,输出结果为【 】。
在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,然后编写如下代码:
Dim SaveAll As String
Private Sub Command1_Click()
Text1.Text=Left(UCase(SaveAll),4)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
SaveAll=SaveAll+Chr(KeyAscii)
End Sub
程序运行后,在文本框中输入abcdefg,单击命令按钮,则文本框中显示的内容是______。
在窗体上画一个命令按钮Command1,然后编写如下程序: Private Sub Command1_Click() Dim arr()As Integer ReDim arr(3) For i=0 To 3 arr(i)=i Next i x=InputBox("请输入一个数字:") If Val(x)>4 Then ReDim art(4) air(4)=x End If Me.Print(arr(4)-art(3)) End Sub 程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为【 】。
在窗体上设置一个命令按扭, 编写的事件过程为: Private Sub Command1_Click() Sum = 0 x =0 Do While x<>-1 x =InputBox$(“请输入一个正整数 x:”) Sum = Sum + x Loop Print x, SumEnd Sub 当程序运行时,单击该命令按扭,在输入对话框中依次输入3、5、7、9、-3和-1,则在窗体上出现的运行结果是:
A、-1 21
B、-1 20
C、-3 9
D、3 -1
Private Sub Command1_Click()
s = 0
For i = 0 To 15
X = 2 * i - 1
If X Mod 3 = 0 Then s = s + 1
Next i
Label
1.Caption = s
End Sub
程序运行后, 单击命令按钮, 则标签中显示的内容为
A.1
B.5
C.27
D.45
A.单击“开始”按纽,选择“开始”菜单中的“查找”命令
B.右击“我的电脑”图标,单击快捷菜单中的“查找”命令
C.在“资源管理器”窗口中,单击“工具”菜单中的“查找”命令
D.在Word程序窗口中,单击“编辑”菜单中的“查找”命令
在窗体上画一个名称为Command1的命令按钮,一个名称为Label1的标签,然后编写如下事件过程: Private Sub Command1_Click() s=0 For i=1 To 15 x=2*i-1 if x Mod 3=0 Then s=s+1 Next i LabeCaption=s End Sub 程序运行后,单击命令按钮,则标签中显示的内容是______。
A.1
B.5
C.27
D.45