设窗体上有名称为Option1的单选按钮，且程序中有语句：If Options.Value=True Then下面语句中与该语句不等价的是

试卷相关题目

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

  A.文本框中显示的是“程序设计”，且焦点在文本框中

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

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

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

  开始考试点击查看答案
• 2在程序运行时，下面的叙述中正确的是

  A.用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_Load事件过程

  B.用鼠标左键单击窗体的标题栏，会执行窗体的Form_Click事件过程

  C.只装入而不显示窗体，也会执行窗体的Form_Load事件过程

  D.装入窗体后，每次显示该窗体时，都会执行窗体的Form_Click事件过程

  开始考试点击查看答案
• 3可以产生30-50（含30和50）之间的随机整数的表达式是

  A.Int(Rnd*21+30)

  B.Int(Rnd*20+30)

  C.Int(Rnd*50-Rnd*30)

  D.Int(Rnd*30+50)

  开始考试点击查看答案
• 4若看到程序中有以下事件过程，则可以肯定的是，当程序运行时Private Sub Click_MouseDown(Button As Integer,_Shift As Integer,X As Single,Y As Single)Print “VB Program”End Sub

  A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程

  B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程

  C.用鼠标左键单击名称为“MouseDown”的控件时，执行此过程

  D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

  开始考试点击查看答案
• 5用来设置文字字体是否斜体的属性是

  A.FontUnderline

  B.FontBold

  C.FontSlope

  D.FontItalic

  开始考试点击查看答案
• 6设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述正确的是

  A.程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加

  B.程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少

  C.由于滚动条的Max属性值下于Min属性值，程序会出错

  D.由于滚动条的Max属性值下于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动

  开始考试点击查看答案
• 7有如下过程代码：Sub var_dim()Static numa As IntegerDim numb As Integernuma=numa+2numb=numb+1print numa;numbEnd Sub连续3次调用var_dim过程，第3次调用时的输出是

  A.2 1

  B.2 3

  C.6 1

  D.6 3

  开始考试点击查看答案
• 8在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()For i=5 to 1 step -0.8Print Int(i);Next iEnd Sub运行程序，单击命令按钮，窗体上显示的内容为

  A.5 4 3 2 1 1

  B.5 4 3 2 1

  C.4 3 2 1 1

  D.4 4 3 2 1 1

  开始考试点击查看答案
• 9在窗体上画1个命令按钮，并编写如下事件过程：Private Sub Command1_Click()Dim a(3,3)For m=1 To 3For n=1 To 3If n=m Or n=4-m Thena(m,n)=0End IfPrint a(m,n);Next nPrintNext mEnd Sub运行程序，单击命令按钮，窗体上显示的内容为

  A.2 0 00 4 00 0 6

  B.2 0 40 4 04 0 6

  C.2 3 03 4 00 0 6

  D.2 0 00 4 50 5 6

  开始考试点击查看答案
• 10设有以下函数过程Function fun(a As Integer,b As Integer)Dim c As IntegerIf a<b Thenc=a:a=b:b=cEnd Ifc=0Doc=c+aLoop Until c Mod b=0fun=cEnd function若调用函数fun时的实际参数都是自然数，则函数返回的是

  A.a、b的最大公约数

  B.a、b的最小公倍数

  C.a除以b的余数

  D.a除以b的商的整数部分

  开始考试点击查看答案