你可能感兴趣的试题

填空题
在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Commandl。程序运行时，单击命令按钮，能将事先输入到文本框中的内容一个字符一个字符地写入顺序文件 test.dat中。请在空白处填上适当的内容，将程序补充完整。
Private Sub Command1_Click()
Open"c：\test.dat"For Output As #1
For I=1 to Len(Text1.text)
______
Next I
Close #1
End Sub
答案：Print #1,Mid(text1.text,I,1)
填空题
鼠标移动经过控件时，将触发控件的______事件。
答案：MouseMove[解析] MouseDown、MouseUp，MouseMove事件是鼠标在控件上按下、放开和移动时触...
填空题
设有如下程序
Private Sub Search(a()As Variant， ByVal key As Variant， index%)
Dim I%
For I=LBound(a) To UBound(a)
If key=a(I) Then
Index=I
Exit Sub
End If
Next I
Index=-1
End Sub
Private Sub Form Load()
Show
Dim b()As Variant
Dim n As Integer
b=Array(1，3，5，7，9， 11， 13， 15)
Call Search(b， 11， n)
Print n
End Sub
程序运行后，输出结果是______。
答案：5[解析] 本题综合考查了数值的初始赋值，Sub过程的建立与调用，For循环控制语句等多项内容。本题的要点在于理解Sub...
填空题
阅读以下程序：
Private Sub Form_click()
Dim k,n,m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 ______ 。

答案：21
[解析] 本题的循环体共要执行10次，m的最终值为1+2*10=21。
填空题
下列程序的输出结果为______。
Sub OnGousbGotoDemo()
Dim Number，MyString
Number=2
On Number GoTo Line1, Line2
Exit Sub
Line 1：
MyString="In Line 1"
Print MyString
Line2：
MyString="In Line2"
Prnt MyString
End Sub
答案：In Line2
填空题
在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。
DimA rr(1 To 5)
Private Sub Form_Load()
7
End Sub
Private Form_Click()
8
If Int(x/3)=x/3 Then
PrintX
End If
Next X
End Sub
答案：Arr=Anay(35,48,15,22,67)
填空题
在程序的空白处填写适当的语句(一个空白处只能填写一条语句)，使程序完成相应的数据处理。Form_Load事件过程给数组赋初值35，48，15，22，67。Form_Click事件过程对数组元素进行处理。
DimA rr(1 To 5)
Private Sub Form_Load()
7
End Sub
Private Form_Click()
8
If Int(x/3)=x/3 Then
PrintX
End If
Next X
End Sub
答案：For Each x In Arr
填空题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PriVate Sub Commandl_CUck()
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1 To 100
If 9 Then
Max=arr(i)
End If
If 10 Then
Min=arr(i)
End If
Nexti
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组alt中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
答案：arr(i)＞Max或arr(i)＞=Max或Max＜arr(i)或Max=arr(i)
填空题
在窗体上画1个命令按钮，其名称为Command1，然后编写如下事件过程：
PriVate Sub Commandl_CUck()
Dimalt(1 To 100)As Integer
Fori=1 To 100
arr(i)=Int(Rnd*1000)
Nexti
Max=arr(1)
Min=arr(1)
Fori=1 To 100
If 9 Then
Max=arr(i)
End If
If 10 Then
Min=arr(i)
End If
Nexti
Print"Max="；Max，"Min="；Min
End Sub
程序运行后，单击命令按钮，将产生100个1000以内的随机整数，放入数组alt中，然后查找并输出这100个数中的最大值Max和最小值Min，请填空。
答案：arr(i)＜Min或arr(i)＜=Min或Min＞arr(i)或Min＞=arr(i)
填空题
以下程序的功能是：把当前目录下的顺序文件smtext1.txt的内容读入内存，并在图片框Picture1中显示出来。请填空。
Private Sub Command1_Click ____
Dim inData As String
Open ".\mText1.txt" ______ As 1
Do While Not EOF(1)
Input #1, inData
Picture1.Print inData
Loop
Close #1
End Sub
答案：For Input
填空题
窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是 ________ 。
Private Sub Command1 _ Click( )
Print"北京"；
End Sub
Private Sub Command2 _ Click( )
Print"南京"；
End Sub
Private Sub Form _ Load( )
Command2．Cancel＝True
Command1．Cancel=True
End Sub

答案：北京解析：窗体中只能有一个CommandButton控件为取消按钮。当一个CommandButton控件的Cancel属...
填空题
在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。
答案：DoEvents
填空题
请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub
答案：S(i,j)=1
填空题
请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub
答案：S(i,j)=0
填空题
软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特征，其中最重要的是______。
答案：无歧义性[解析] 软件需求规格说明书是需求分析阶段的最后成果，其最重要的特性是无歧义性，即需要规格说明书应该是精确的、无...
填空题
请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub
答案：S(i,j)

首页

题库

网课

在线模考

在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。

你可能感兴趣的试题

鼠标移动经过控件时，将触发控件的______事件。

阅读以下程序：
Private Sub Form_click()
Dim k,n,m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 ______ 。

下列程序的输出结果为______。
Sub OnGousbGotoDemo()
Dim Number，MyString
Number=2
On Number GoTo Line1, Line2
Exit Sub
Line 1：
MyString="In Line 1"
Print MyString
Line2：
MyString="In Line2"
Prnt MyString
End Sub

窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是 ________ 。
Private Sub Command1 _ Click( )
Print"北京"；
End Sub
Private Sub Command2 _ Click( )
Print"南京"；
End Sub
Private Sub Form _ Load( )
Command2．Cancel＝True
Command1．Cancel=True
End Sub

在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub

软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特征，其中最重要的是______。

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub

在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。

你可能感兴趣的试题

鼠标移动经过控件时，将触发控件的______事件。

阅读以下程序： Private Sub Form_click() Dim k,n,m As integer n=10 m=1 k=1 Do While k＜=n m=m+2 k=k+1 Loop Print m End Sub 单击窗体程序的执行结果是 ______ 。

下列程序的输出结果为______。 Sub OnGousbGotoDemo() Dim Number，MyString Number=2 On Number GoTo Line1, Line2 Exit Sub Line 1： MyString="In Line 1" Print MyString Line2： MyString="In Line2" Prnt MyString End Sub

窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是 ________ 。 Private Sub Command1 _ Click( ) Print"北京"； End Sub Private Sub Command2 _ Click( ) Print"南京"； End Sub Private Sub Form _ Load( ) Command2．Cancel＝True Command1．Cancel=True End Sub

在程序运行执行闲置循环过程中，程序的控制权被系统占用。若要获得控制权，可以使用一个语句。这样用户可以在获得系统的控制权后进行其他操作。这个语句是______。

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If i=j Then 14 Else 15 End If Print 16 Next j Print Next i End Sub

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If i=j Then 14 Else 15 End If Print 16 Next j Print Next i End Sub

软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特征，其中最重要的是______。

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。 Private Sub Command1_Click() Dim s (6,6) For i=1 To 6 For i=1 To 6 If i=j Then 14 Else 15 End If Print 16 Next j Print Next i End Sub

阅读以下程序：
Private Sub Form_click()
Dim k,n,m As integer
n=10
m=1
k=1
Do While k＜=n
m=m+2
k=k+1
Loop
Print m
End Sub
单击窗体程序的执行结果是 ______ 。

下列程序的输出结果为______。
Sub OnGousbGotoDemo()
Dim Number，MyString
Number=2
On Number GoTo Line1, Line2
Exit Sub
Line 1：
MyString="In Line 1"
Print MyString
Line2：
MyString="In Line2"
Prnt MyString
End Sub

窗体上有两个按钮，则执行程序后按键盘Cancel键的输出结果是 ________ 。
Private Sub Command1 _ Click( )
Print"北京"；
End Sub
Private Sub Command2 _ Click( )
Print"南京"；
End Sub
Private Sub Form _ Load( )
Command2．Cancel＝True
Command1．Cancel=True
End Sub

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub

请填写下列空白以实现运行后形成一个主对角线上元素值为l，其他元素为0的6×6阶矩阵。
Private Sub Command1_Click()
Dim s (6,6)
For i=1 To 6
For i=1 To 6
If i=j Then
14
Else
15
End If
Print 16
Next j
Print
Next i
End Sub