单选题要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。 A) If x mod 7 = 2 Then Print x B) If x - (x/7) * 7 = 2 Then Print x C) If x - (x/7) * 7 = 2 Then Print x D) If x - Int(x/7) * 7 = 2 Then Print x
单选题如果x是一个正的实数,将千分位四舍五入,保留两位小数的表达式是( )。
单选题执行下列程序段后,输出的结果是 For k1=0 TO 4 y=20 For k2=0 TO 3 y=10 For k3=0 TO 2 y=y+10 Next k3 Next k2 Next k1 Print y
单选题数据处理的最小单位是
单选题有人编写了如下程序:
Private Sub Form_Click()
Dim S As Integer, x As integer
s=0
x=0
Do While s=10000
x=x+1
s=s+x2
Loop
Print s
End Sub
上述程序的功能是:计算s=1+2
2
+3
2
+…+n
2
+…,直到s>10000为止。程序运行后,发现得不剑正确的结果,必须进行修改。下列修改中正确的是______。
单选题为了使标签控件在显示其内容时不覆盖其背景内容,需进行设置的属性为
单选题在窗体上画一个命令按钮Command1和两个文本框,名称分别为Text1和Text2。编写如下两个事件过程: Dim Str1 As String,str2 As String Private Sub form_load() Text1.Text="" Text2.Text="" Text1.Enabled=False Text2.Enabled=False End Sub Private Sub Form_KeyPress(KeyAscii As Integer) str1=str1 & Chr(KeyAscii) End Sub Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) str2=str2 & Chr(KeyCode) End Sub Private SubCommand1_Click() Text1.Text=str1 Text2.Text=str2 str1="" str2="" End Sub 当在设计阶段的窗体的KeyPreview属性设置为True时,程序运行过程中,在键盘上输入小写字母abc,然后单击命令按钮,则文本框Text1中显示的内容为
单选题设有如下声明: Dim x As Integer 如果Sgn(x)的值为-1,则表示x的值是
单选题编写如下事件过程:
Private Sub Form_ MouseDown (Button As Integer, _
Shift As Integer, X As Single, Y As Single)
If Shift = 6 And Button = 2 Then
Print "BBBB"
End If
End Sub
程序运行后,为了在窗体上输出BBBB,应执行的操作为______ 。
单选题下列叙述中正确的是( )。
单选题在下面语句或函数中,不能描述选择结构的是( )。
单选题设工程中有Form1、Form2两个窗体,要求单击Form2上的Command1命令按钮,Form2就可以从屏幕上消失,下面的事件过程不能实现此功能的是______A.B.C.D.
单选题以下关于VB文件的叙述中,错误的是______。
单选题在窗体上画一个名称为CommandDialog1 的通用对话框,一个名称为Command1的命令按钮。然后编写如下事件过程:
Private Sub Command1_Click( )
CommonDialog1.FileName =""
CommonDialog1.Filter="All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt"
CommonDialog1.FilterIndex=1
CommonDialog1.DialogTitle="VBTest"
CommonDialog1.Action=1
End Sub
对于这个程序,以下叙述中错误的是( )
单选题在窗体上有文本框Text1和命令按钮Command1,并有下列事件过程: Private Sub Command1_Click() Dim i As Integer,n As Integer For i=0 To 50 i=i+3 n=n+1 If i>10 Then Exit For Next Text1.Text=Str(n) End Sub 单击命令按钮,程序运行后,在文本框中显示的值是( )。
单选题引用列表框(List1)最后一个数据项应使用的表达式是( )。 A) List1.List(List1.ListCount) B) List1.List(List1.ListCount-1) C) List1.List(ListCount) D) List1.List(ListCount-1)
单选题执行下面的程序段,x的值为 Private Sub Command1_Click( ) For i=1 To 5 a=a+i Next i x=Val(i) MsgBox x End Sub
单选题下列程序段的执行结果为 a=5 For k=1 To 0 a=a
* k Next k Print k;a
A. -1 6
B. -1 16
C.1 5
D.11 21
单选题假定有以下程序: Private Sub Form_Click() a=1: b=a Do Until a>=5 x=a*b Print b:x a=a+b b=b+a Loop End Sub 程序运行后,单击窗体,输出结果是( )。
单选题设在工程文件中有一个标准模块,其中定义了如下记录类型:
Type Books
Name As String * 10
TelNum As String * 20
End Type
在窗体上画一个名为Command1的命令按钮,要求当执行事件过程Command1_Click时,在顺序文件Person.txt中写入一条记录。下列能够完成该操作的事件过程是______。
