【单选题】【消耗次数:1】
假定在窗体是有两个命令按钮Command1和Command2及一个文本框Text1。有如下事件过程代码: Private Sub command1_click() Text1.Text = 中国 End Sub Private Sub command2_click() Text1.Text = China End Sub 若首先单击command1,再单击Command2,则在文本框中显示 ( )。
China
中国
China中国
中国China
参考答案:
复制
纠错
相关题目
【单选题】 在窗体上画一个命令按钮和一个文本框,其名称分别为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,则文本框中显示的内容是______。
①  出错
②  18
③  810
④  108
【单选题】 在窗体上画1个命令按扭(名称为Command1)和1个文本框(名称为Text1),然后编写如下事件过程: ???? Private Sub Command1_Click() ???? ? x=Val(Text1.Text) ???? ? Select Case x ???????? Case 1,3 ????????????? y=x*x ???????? Case Is>=10,Is<=-10 ????????????? y=x ???????? Case -10 To 10 ????????????? y=-x ?End Select ?????? End Sub 程序运行后,在文本框中输入3,然后单击命令按扭,则以下叙述中正确的是______。
①  先执行y=x*x,再执行y=-x
②  执行y=-x
③  执行y=x*x
④  程序出错
【单选题】 窗体上画一个名为Command1的命令按钮,然后编写以下程序: Private Sub Command1_Click() Dim m(10) As Integer For k = 1 To 10 m(k) = 12 - k Next k x = 8 Print m(2 + m(x)) End Sub 运行程序,单击命令按钮,在窗体上显示的是 。
①  6
②  5
③  7
④  8
【单选题】 在窗体上画一个名称为CommonDialog1的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程: Private Sub Command1_Click() ??? CommonDialog1.FileName = ??? CommonDialog1.Filter=All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt ??? CommonDialog1.FilterIndex=2 ??? CommonDialog1.DialogTitle=VBTest ??? CommonDialog1.Action=1 End Sub 对于这个程序,以下叙述中错误的是______。
①  在该对话框中指定的默认文件类型为文本文件(*.Txt)
②  在该对话框中指定的默认文件名为空
③  该对话框的标题为VBTest
④  该对话框被设置为打开对话框
【单选题】 单击命令按钮Command1必将调用已写在()事件中的代码。
①  LostFocus
②  KeyPress
③  Dbclick
④  Click
【单选题】 文本框text1的text属性的数据类型是()。
①  整数型
②  字符串
③  单精度
④  双精度
【单选题】 设有如下程序: Option Base 0 Private Sub Form_Click() ??? Dim a ??? Dim i As Integer ??? a = Array(1, 2, 3, 4, 5, 6, 7, 8, 9) ??? For i = 0 To 3 ??????? Print a(5 - i); ??? Next End Sub 程序运行后,单击窗体,则在窗体上显示的是?
①  6?5?4 3
②  5?4?3?2
③  4?3?2 1
④  7?6?5?4
【简答题】 已知函数 。下面是实现计算该函数的程序,请填空完成以下程序。 Private Sub Command1_Click() Dim k As Integer, i As Integer, s As Long n = 5 : k = 1 For i = 1 To n s = s +[填空] Next i Print s End Sub Function pow(a As Integer, b As Integer) As Long Dim i As Integer, t As Long t = 1 For i = 1 To a [填空] Next i pow = t End Function
【单选题】 假定Picture1和Text1分别为图片框和文本框的名称,下列不正确的语句是()。
①  Print26
②  Picture1.Print26
③  Text1.Print26
④  Debug.Print26
【单选题】 将命令按钮Command1设置为不可见,应修改该命令按钮的()属性。
①  Caption
②  Value
③  Visible
④  Enabled
随机题目
【判断题】 成本可以收回的,合同收入根据能够收回的实际合同成本确认;不能收回的,发生时做费用,不确认收入。(  )
① 
② 
【判断题】 在进货费用单独归集的情况下,在计算商品销售实际成本的时候,不仅要计算和结转销售商品应分摊的进销差价,而且还要计算和结转已销售商品应分摊的进货费用。(  )
① 
② 
【判断题】 售价金额核算法是一种单独的存货计价方法。(  )
① 
② 
【判断题】 本量利分析的基本内容是确定企业的保本点,并规划目标利润。(  )
① 
② 
【判断题】 分算法是在一定的条件下,将全部固定成本按一定标准在各种产品之间进行合理分配,确定每种产品应补偿的固定成本数额,然后再对每一种产品按单一品种条件下的情况分别进行保本分析的方法。(  )
① 
② 
【判断题】 进价金额核算法按商品的售价核算库存商品。(  )
① 
② 
【判断题】 企业应当根据生产经营特点,以理想生产能力水平为基础,按照资源耗费方式确定合理的分配标准。(  )
① 
② 
【判断题】 制造费用是指制造企业车间范围为生产产品和提供劳务而发生的各项直接费用。(  )
① 
② 
【判断题】 企业可以按不同的生产车间、部门和费用项目进行明细核算。(  )
① 
② 
【判断题】 加班工资不属于工资总额。(  )
① 
②