下述程序段在运行时的显示结果是【】。　　Cls　　x=1．34 + 8...

填空题

在深度为7的满二叉树中,度为2的结点个数为【】。

答案： 63

填空题

下面的程序用于根据文本框Test中输入的内容进行以下处理：若Text为1，则打印“您的成绩为优秀！”；若Text为2，则打印“您的成绩为良好!”；若Text 为3，则打印“您的成绩为一般”；否则打印“您的成绩一般以下!”，请填空。　　Private Sub Command1_Click( ) 　　　　Selct Case Val(Text1.Text) 　　　　　　　Case【】　　　　　　　　　　Print "您的成绩为优秀！" 　　　　　　　Case【】　　　　　　　　　　Print "您的成绩为良好！" 　　　　　　　Case【】　　　　　　　　　　Print "您的成绩为一般！" 　　　　　　　Case Else 　　　　　　　　　Print "您的成绩为一般以下！" 　　　End Select 　　End Sub

答案： A

填空题

在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。　　Private Sub Disp_Click() 　　　　Me．Hide 　　　　Form2.【】　　End Sub

答案： Show

填空题

当对象得到焦点时，会触发【】事件，当对象失去焦点时将触发【】事件。

答案： GolFocus

填空题

在窗体上画一个命令按钮和一个文本框,其名称分别为Command1和Text1,然后编写如下事件过程： Private Sub Commandl_Click() Dim inData As String Textl.Text="" Open"d：myfile.txt"For 【】As#1 Do While 【】 Input#,inData Loop Text1.Text=Text1.Text+inD Loop Close#1 End Sub 程序的功能是,打开D盘根目录下的文本文件myfile.txt,读取它的全部内容并显示在文本框中。请填空。

答案： Input,N0t EOF(A)

填空题

下列语句的输出结果是【】。　　Print Format$(6658.6，"000,000.00．")

答案： 006，658．60

填空题

在窗体上画两个文本框，其名称分别为Namel和PassWordl，然后编写如下事件过程　　Private Sub Form_Load() 　　　　Show 　　　　Namel．Text=" " 　　 Passwordl．Text=" " 　　　　Passwordl．SetFocus 　　End Sub 　　Private Sub Passwordl_KeyDown(KeyCode As Integer，Shift As Integer) 　　　　Namel．Text=Name1．Text+Chr(KeyCode - 3) 　　End Sub 　　程序运行后，如果在Passwordl中输入“hit’’’，则在Namel文本框中显示的内容是【】。

答案： EFQ

填空题

下列程序是判断一个整数(>=3)是否为素数，请补充完整。　　Dim n As Integer 　　n=InputBox("请输入一个整数(>=3)") 　　k=Int(Sqr(n)) 　　i=2 　　swit=0 　　While i<=k And swit=0 　　　　If n Mod i=0 Then 　　　　【】　　　　Else 　　　　【】　　　　End If 　　Wend 　　If swit=0 Then 　　　　Print n；"是一个素数。" 　　Else 　　　　Print n；"不是一个素数。" 　　End If

答案： swit=1

填空题

在窗体上加上一个文本控件PCSTextBox，画一个命令按钮，当单击命令按钮的时候将显示 “打开文件”对话框，设置该对话框只用于打开文本文件，然后在文本控件中显示打开的文件名。请填空。　　Private Sub Command1_Click() 　　　　CommonDialog1．Filter=【】　　　　CommonDialog1．ShowOpen 　　　　PCSTextBox．Text=【】　　End Sub

答案： "Text Files(*．txt)|*．txt"

填空题

以下过程的作用是将26个小写字母逆序打印出来，请补充完整。　　Sub Inverse() 　　　　For i=122 To 【】　　　　　　Print 【】；　　　　Next i 　　End Sub

答案： 97 Step -1

填空题

已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数　　Dim【】　　　For i=65 To 90 　　　pp(i) =0 　　Next 　　x$=InputBox("Enter a string"，x$) 　　x$=UCase$(x$) 　　For i=1 To【】　　　　n=Asc(Mid$(x$，i，1)) 　　　If n ＞=65 And n ＜=90 Then 　　　　　【】　　　　End If 　　Next i 　　For i=65 To 90 　　　If pp(i) ＞0 Then 　　　　Print Chr$(i)；pp(i) 　　　End If 　　Next

答案： pp(65 To 90)

填空题

每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为【】，Picture的前缀为【】。

答案： img

填空题

下面运行程序后，单击命令按钮，输出的结果是【】。　　Private Sub Command1_Click( ) 　　　Dim a%(1 To 4)，b%(3 To 6)，i%，s1#，s2# 　　　For i=1 To 4 　　　　a(i) =i 　　　Next i 　　　For i=3 To 6 　　　　b(i) =i 　　　Next i 　　　s1=YAS(A) 　　　s2=YAS(B) 　　　Print"s1="；s1；"s2="；s2 　　End Sub 　　Function YAS(a( )As Integer) 　　　Dim t#，i% 　　　t=1 　　　For i=LBound(A) To UBound(A) 　　　　t=t * a(i) 　　　Next i 　　　YAS=t 　　End Function

答案： s1=24 s2=360

填空题

在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是abDfdb，则单击Command1按钮后Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String, s As String, c As String str = UCase(Text1) s = "" c = "Z" While c >= "A" If InStr(str, C）= 0 Then s = _ End If c = Chr$(Asc( C）_ ) Wend If s <> "" Then Text1 = s End If End Sub

答案： s+c 或 s & c , -A

填空题

表达式3^2 Mod 36\ 2^5的值是【】

答案： 0

填空题

已知B的ASCII码为66，以下程序统计由键盘输入的字符串中各英文字母的使用次数　　Dim【】　　　For i=65 To 90 　　　pp(i) =0 　　Next 　　x$=InputBox("Enter a string"，x$) 　　x$=UCase$(x$) 　　For i=1 To【】　　　　n=Asc(Mid$(x$，i，1)) 　　　If n ＞=65 And n ＜=90 Then 　　　　　【】　　　　End If 　　Next i 　　For i=65 To 90 　　　If pp(i) ＞0 Then 　　　　Print Chr$(i)；pp(i) 　　　End If 　　Next

答案： pp(65 To 90)

填空题

设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _。程序运行后，单击窗体，输出结果为 _。

答案：求整数 A~H 之和 , CF

填空题

下述程序段在运行时的显示结果是【】。　　Cls 　　x=1．34 + 8 　　Print Len(x)

答案： D

填空题

数据结构分为线性结构和非线性结构,带链的队列属于【】。

答案：线性结构

填空题

在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。　　Sub　SORT( ) 　　　Dim a(1 To 10) 　　　For i=1 To 10 　　　　a(i)=Val(InputBox(" " ，" "，0)) 　　Next i 　　For i=【】　　　　　k=i 　　　　　For j=【】　　　　　　　If a(k)＞a(j)Then 【】　　　　　　　If k＜＞i Then 　　　　　　　　　b＝a(k) 　　　　　　　　　a(k)＝a(i) 　　　　　　　　　a(i) =b 　　　　　　　End If 　　　　　Next j 　　　　Next i 　　　　For k=1 To 10 　　　　　Print a(k) 　　　　Next k 　　End Sub

答案： 1 To 9

下述程序段在运行时的显示结果是【 】。 Cls x=1．34 + 8 Print Len(x)

你可能感兴趣的试题

在深度为7的满二叉树中,度为2的结点个数为 【 】。

在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体 隐藏，显示Form2窗体，程序如下，请补充完整。 Private Sub Disp_Click() Me．Hide Form2.【 】 End Sub

当对象得到焦点时，会触发【 】事件，当对象失去焦点时将触发【 】事件。

下列语句的输出结果是【 】。 Print Format$(6658.6，"000,000.00．")

以下过程的作用是将26个小写字母逆序打印出来，请补充完整。 Sub Inverse() For i=122 To 【 】 Print 【 】 ； Next i End Sub

每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为【 】，Picture的前缀为【 】。

表达式3^2 Mod 36\ 2^5的值是【 】

设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _________。程序运行后，单击窗体，输出结果为 _________。

下述程序段在运行时的显示结果是【 】。 Cls x=1．34 + 8 Print Len(x)

数据结构分为线性结构和非线性结构,带链的队列属于【 】。

下述程序段在运行时的显示结果是【】。　　Cls 　　x=1．34 + 8 　　Print Len(x)

在深度为7的满二叉树中,度为2的结点个数为【】。

在一个工程中有两个窗体，窗体Form1上有一个命令按钮Disp，单击该按钮，Form1窗体隐藏，显示Form2窗体，程序如下，请补充完整。　　Private Sub Disp_Click() 　　　　Me．Hide 　　　　Form2.【】　　End Sub

当对象得到焦点时，会触发【】事件，当对象失去焦点时将触发【】事件。

下列语句的输出结果是【】。　　Print Format$(6658.6，"000,000.00．")

以下过程的作用是将26个小写字母逆序打印出来，请补充完整。　　Sub Inverse() 　　　　For i=122 To 【】　　　　　　Print 【】；　　　　Next i 　　End Sub

每一个窗体或者控件都有一个名字，为提高程序的可读性，可以用前缀的方式来表示对象的类型，如Form的前缀为frm，则Image的前缀为【】，Picture的前缀为【】。

表达式3^2 Mod 36\ 2^5的值是【】

设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n > 0 Print s End Sub 以上程序的功能是 _。程序运行后，单击窗体，输出结果为 _。

下述程序段在运行时的显示结果是【】。　　Cls 　　x=1．34 + 8 　　Print Len(x)

数据结构分为线性结构和非线性结构,带链的队列属于【】。