题目内容（请给出正确答案）

[主观题]

在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序

： Private Sub Command1_Click() Dim x As String，y As String， C As String，d As String x = Text1．Text ： y = TextText c = LCase(x)：d = UCase(y) Print c； d End Sub 程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是

A．abcEFG

B．abcefg

C．ABCefg

D．ABCEFG

查看答案

如果结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装优题宝APP，拍照搜题省时又省心！

更多“在窗体中添加一个命令按钮，名称为Command1，两个文本框…”相关的问题

第1题

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click（) Di

在窗体上画一个名称为Command1的命令按钮。编写如下事件过程： Private Sub Command1_Click() Dim a As String A=【】 For i=1 To 5 Print Space(6-i); Mid$(a, 6-i, 2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为： 5 456 34567 2345678 123456789 请填空。

点击查看答案

第2题

在窗体中添加一个名称为Lablel1的标签、两个名称为Text1和Text2的文本框以及名称为Command1的按钮

。程序运行后，在两个文本框中输入数据，当单个按钮时，标签Label1中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+…+(n+m)!。请在【】处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(【】) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub

点击查看答案

第3题

在窗体上添加一个文本框控件Info，画一个命令按钮，当单击命令按钮显示“保存文件”对话框，设置该对

话框可用于保存文本文件(默认)和可执行文件(．exe)，然后在文本控件中显示保存的文件名。 Private Sub Command1_Click() CommonDialog1．Filter=【】 CommonDialog1．FilterIndex=【】 CommonDialog1．ShowSave Info．Text=【】 End Sub

点击查看答案

第4题

将宏对象拖入到窗体的设计视图，会自动添加一个()。

A.标签

B.文本框

C.列表框

D.命令按钮

点击查看答案

第5题

在窗体中添加记录的方法是（)A．单击“浏览按钮”中的“添加新记录” B．单击“选择对象”中的“添加新记

在窗体中添加记录的方法是()

A．单击“浏览按钮”中的“添加新记录”

B．单击“选择对象”中的“添加新记录”

C．单击“命令按钮”中的“添加新记录”

D．单击“分页符按钮”中的“添加新记录”

点击查看答案

第6题

设计名为mystu的表单(控件名为form1，文件名为mystu)。表单的标题为“学生学习情况统计”。表单中有一个选项组控件(命名为myOption)和两个命令按钮“计算(名称为Command1)和*退出"(名称为Command2)。中，选项组控件有两个按钮升序”(名称为Option1)和”降序”(名称为Option2)。运行表单时，首先在选项组控件中选择升序或降序(使用IF语句判断)，单击“计算”命令按钮后，按照成绩升序'或降序(根据选项组控件)将选修了“C语言”的学生学号和成绩分别存入stu_sort1.db和stu_sort2.dbf文件中。单击退出“按钮关闭表单。注意:完成表单设计后要运行表单的所有功能。

点击查看答案

第7题

在窗体上画一个命令按钮Command1，然后编写如下程序： Private Sub Command1_Click（) Dim arr（)A

在窗体上画一个命令按钮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，输出结果为【】。

点击查看答案

第8题

在窗体上画—个命令按钮，其名称为Command1，然后编写如下程序： Function M（x As Integer,y As

在窗体上画—个命令按钮，其名称为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 程序运行后，单击命令按钮，输出结果为【】。

点击查看答案

第9题

编写如下通用过程： Sub proc（By Val num As Long，ByRef ren As Long) Dim k

编写如下通用过程： Sub proc(By Val num As Long，ByRef ren As Long) Dim k As Long K = 1 num=Abs(num) Do While num k= k *(num Mod 10) num=num\ 10 Loop ren=k End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click() Dim n As Long， r As Long n=InputBox("请输入一个整数") n = CLng(n) proc n，r Print r End Sub 程序运行后，单击命令按钮，在输入对话框中输入345，输出结果是【】。

点击查看答案

第10题

在考生文件夹中完成如下综合应用：在考生文件夹中设计名为Supper的表单（表单的控件名和文件

在考生文件夹中完成如下综合应用：在考生文件夹中设计名为Supper的表单(表单的控件名和文件名均为Supper)，表单的标题为“机器零件供应情况”。表单中有一个表格控件和两个命令按钮“查询”和“关闭”。运行表单时单击“查询”命令按钮后，表格控件中显示“供应”表工程号为“A7”所使用的零件的“零件名”、“颜色”、和“重量”，并将结果放到表CI中。单击“关闭”按钮关闭表单。

点击查看答案

第11题

在“图层”调板中按住（)键单击“添加图层蒙版”按钮可创建一个黑色的蒙版，黑色的蒙版会遮住当前图层的所有内容。相当于选取【图层】|【图层蒙版】|【隐藏全部】菜单命令。

A.Alt

B.Shift

C.Ctrl

D.Alt+Shift

点击查看答案