题库 题库

【单选题】

窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text=”等级考试”
End Sub
运行以上程序,单击命令按钮后
  • A.文本框中显示的是“程序设计”,且焦点在文本框中

  • B.文本框中显示的是“等级考试”,且焦点在文本框中

  • C.文本框中显示的是“程序设计”,且焦点在命令按钮上

  • D.文本框中显示的是“等级考试”,且焦点在命令按钮上

参考答案

查看答案

相关试题

单选题 数据库管理系统是 查看答案
单选题 在窗体上画1个命令按钮和1个文本框,其名称分别为Command1和Text1,再编写如下程序:
Dim ss As String
Private Sub Text1_KeyPress(KeyAscii As integer)
If chr(KeyAscii)<>””Then ss=ss+chr(KeyAscii)
End Sub
Private Sub Command1_Click()
Dim m As String,i As Integer
For i=Len(ss) To 1 step -1
m=m+Mid(ss,i,1)
Next
Text1.Text=Ucase(m)
End Sub
程序运行后,在文本框中输入“Number100”,并单击命令按钮,则文本框中显示的是
查看答案
单选题 用来设置文字字体是否斜体的属性是 查看答案
单选题 有三个关系R,S和T如下:

  
其中关系T由关系R和S通过某种操作得到,该操作为
查看答案
单选题 把数学表达式 图1 表示为正确的VB表达式应该是 查看答案
单选题 有如下过程代码:
Sub var_dim()
Static numa As Integer
Dim numb As Integer
numa=numa+2
numb=numb+1
print numa;numb
End Sub
连续3次调用var_dim过程,第3次调用时的输出是
查看答案
单选题 下面有关标准模块的叙述中,错误的是 查看答案
单选题 软件详细设计产生的图如下:
  
该图是
查看答案
单选题 在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为 查看答案
单选题 设窗体上有名称为Option1的单选按钮,且程序中有语句:
If Options.Value=True Then
下面语句中与该语句不等价的是
查看答案
单选题 下列数据结构中,属于非线性结构的是 查看答案
单选题 在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
Dim a(3,3)
For m=1 To 3
For n=1 To 3
If n=m Or n=4-m Then
a(m,n)=0
End If
Print a(m,n);
Next n
Print
Next m
End Sub
运行程序,单击命令按钮,窗体上显示的内容为
查看答案
单选题 在窗体上画1个命令按钮,并编写如下事件过程:
Private Sub Command1_Click()
For i=5 to 1 step -0.8
Print Int(i);
Next i
End Sub
运行程序,单击命令按钮,窗体上显示的内容为
查看答案
单选题 窗体上有1个名称为Text1的文本框;1个名为Timer1的计时器控件,其Interval属性值为5000,Enable属性值是True。Timer1的事件过程如下:
Private Sub Timer1_Timer()
Static flag As Integer
If flag=0 Then flag=1
flag=-flag
If flag=1 Then
Text1.ForeColor=&HFF&  ‘&HFF&为红色
Else
Text1.ForeColor=&HC000& ‘&HC000&为绿色
End If
End Sub
以下叙述正确的是
查看答案
单选题 窗体的左右两端各有1条直线,名称分别为Line1、Line2;名称为Shape1的圆靠在左边的Line1直线上(见图);另有1个名称为Timer1的计时器控件,其Enable属性值是True。要求程序运行后,圆每秒向右移动100,当圆遇到Line2时则停止移动。
  
为实现上述功能,某人把计时器的Interval属性设置为1000,并编写了如下程序:
Private Sub Timer1_Timer()
For k=Line1.X1 To Line2.X1 Step 100
If Shape1.Left+Shape1.Width<Line2.X1 Then
Shape1.Left=Shape1.Left+100
End If
Next k
End Sub
运行程序时发现圆立即移动到了右边的直线处,与题目要求的移动方式不符。为得到与题目要求相符的结果,下面修改方案中正确的是
查看答案
单选题 以下变量名中合法的是 查看答案
单选题 下面控件中,没有Caption属性的是 查看答案
单选题 窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click()
Text1.Text=”程序设计”
Text1.SetFocus
End Sub
Private Sub Text1_GotFocus()
Text1.Text=”等级考试”
End Sub
运行以上程序,单击命令按钮后
查看答案
单选题 对于循环队列,下列叙述中正确的是 查看答案
单选题 下列选项中不属于结构化程序设计原则的是 查看答案