以下语句输出结果是 _________。Print Int(12345.67...

填空题

在窗体上有一个“背景色变换”按钮和一个“结束”按钮。单击“背景色变换”按钮，背景色变为红色；再单击，背景色变为绿色；再单击，背景色变为蓝色；再单击背景色变为红色 ……如此循环。单击“结束”按钮，程序运行结束。请填空。　　Private Sub cmdChange_Click() 　　　If Mark=0 Then 　　　　【】　　　　　Mark=1 　　　　ElseIf【】Then 　　　　Forml．BackColor=vbGreen 　　　　Mark=2 　　　　ElseIf Mark=2 Then 　　　　Form1．BackColor；vbBlue 　　　　【】　　　　End If 　　End Sub 　　Private Sub cmdExit_Click() 　　　End 　　End Sub

答案： Form1．BackColor = vbRed

填空题

下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。　　首先在窗体层定义如下变量：　　Dim PaintStart As Boolean 　　编写如下事件过程：　　Private Sub Form_Load() 　　　　DrawWidth=2 　　　　ForeColor=vbGreen 　　End Sub 　　Private Sub Form_MouseDown(Button As Integer，Shift As Integer，_ 　　　　　　　　　　 X As Single，Y As Single) 　　　　【】　　　End Sub 　　Private Sub Form_MouseMove(Button As Integer，Shift As Integer，_ 　　　　　　　　　　　X As Single，Y As Single) 　　　　If PaintStart Then 　　　　PSet(X，Y) 　　　End If 　　End Sub 　　Private Sub Form_MouseUp(Button As Integer，Shift As Integer，_ 　　　　　　　　　　X As Single，Y As Single) 　　　【】　　　End Sub 　　Private Sub Form_Db1Click() 　　　【】　　　End Sub

答案： PaintStart=True

填空题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。　　Sub GASR() 　　　　Dim m 　　　　m=Array(10，1，5，6，7) 　　　　For i=0 To 3 　　　　　　For j=【】　　　　　　　　　If m(i) ＞=m(j) Then 　　　　　　　　【】　　　　　　　　　m(i) =m(j) 　　　　　　　　m(j) =t 　　　　　　End If 　　　　Next j 　　　【】　　　　For i=0 To 4 　　　　　　Print m(i) 　　　Next i 　　End Sub

答案： i + 1 To 4

填空题

以下语句输出结果是 _________。Print Int(12345.6789 * 100 + 0.5) / 100

答案： 12345.68

填空题

在Visual Basic 的立即窗口内输入以下语句　　X=97 　　 Chr＄ (X) 　　在窗门中显示的结果是【】。

答案： a

填空题

已知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)

填空题

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。　Sub PR( ) 　　　Randomize 　　　Dim a 　　　For j=1 To 10 　　　　　a(i)=Int( 【】 ) 　　　　　If 【】Then k=k+1 　　　　　Print a(j) 　　　　Next j 　　　　Print 　　　　Print k/10 　　End Sub

答案： (99*Rnd)+1

填空题

在数据库系统中,实现各种数据管理功能的核心软件称为【】。

答案：数据库管理系统(DBMS)

填空题

有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以4余1，除以5余2则输出，否则，将焦点定位在文本框中，并清除文本框的内容。　　Private　Sub　Command1_Click(　) 　　　x=Val(Text1．Text) 　　　If【】　Then 　　　　　Print x 　　　Else 　　　　　Text1．Text="" 　　　　　【】　　　　End If 　　End Sub

答案： x Mod 4 = 1 And x Mod 5=2

填空题

下面运行程序后，单击命令按钮，输出的结果是【】。　　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

填空题

下列程序是判断一个整数(>=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

填空题

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

答案： GolFocus

填空题

【】的任务是诊断和改正程序中的错误。

答案：程序调试

填空题

下面程序的作用是用InputBox函数输入一个整数，然后判断能否同时被2，5和7整除，果能则输出该数及平方值。请填空。　　Private Sub Command1_Click() 　　　Dim numX As Integer 　　　numX = Val (InputBox("请输入一个整数")) 　　　If【】Then 　　　　　Form1．Print【】　　　End If 　　End Sub

答案： numX Mod 2 = 0 And numX Mod 5=0 And numX Mod 7=0

填空题

要使标签的背景样式为不透明，应将BackStyle属性设置为【】。

答案： A

填空题

窗体上有两个按钮，则执行程序后按键盘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

答案：北京

填空题

下面程序的功能是统计字符串中“广的个数，请填空。　　Sub COU(　) 　　　　a$="Beijing University of Technology" 　　　　Dim n AS Integer 　　　　n=Len(a$) 　　　　For i=1 To n 　　　　b$=【】　　　　If 【】 Then x=x+1 　　　Next i 　　　Print "x="；x 　　End Sub

答案： Mid$(a$，i，1)

填空题

在文件对话框中，假定有一个名为"fc．exe"的文件，它位于"d:\pp"目录下，则"FileName"属性的值为【】；FileTifie属性的值为【】。

答案： d:\pp\fc.exe

填空题

在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【】事件，当对象失去焦点时将触发【】事件。

答案： GotFocus

填空题

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

答案： img

以下语句输出结果是 _________。Print Int(12345.6789 * 100 + 0.5) / 100

你可能感兴趣的试题

下面是用冒泡法将5个整数按升序排列，请将程序补充完整。 Sub GASR() Dim m m=Array(10，1，5，6，7) For i=0 To 3 For j=【 】 If m(i) ＞=m(j) Then 【 】 m(i) =m(j) m(j) =t End If Next j 【 】 For i=0 To 4 Print m(i) Next i End Sub

以下语句输出结果是 _________。Print Int(12345.6789 * 100 + 0.5) / 100

在Visual Basic 的立即窗口内输入以下语句 X=97 Chr＄ (X) 在窗门中显示的结果是【 】。

下面程序的功能是产生10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR( ) Randomize Dim a For j=1 To 10 a(i)=Int( 【 】 ) If 【 】Then k=k+1 Print a(j) Next j Print Print k/10 End Sub

在数据库系统中,实现各种数据管理功能的核心软件称为 【 】。

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

【 】的任务是诊断和改正程序中的错误。

要使标签的背景样式为不透明，应将BackStyle属性设置为【 】。

窗体上有两个按钮，则执行程序后按键盘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

下面程序的功能是统计字符串中“广的个数，请填空。 Sub COU( ) a$="Beijing University of Technology" Dim n AS Integer n=Len(a$) For i=1 To n b$=【 】 If 【 】 Then x=x+1 Next i Print "x="；x End Sub

在文件对话框中，假定有一个名为"fc．exe"的文件，它位于"d:\pp"目录下，则"FileName"属性 的值为【 】；FileTifie属性的值为【 】。

在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【 】事件，当对象失 去焦点时将触发【 】事件。

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

在Visual Basic 的立即窗口内输入以下语句　　X=97 　　 Chr＄ (X) 　　在窗门中显示的结果是【】。

在数据库系统中,实现各种数据管理功能的核心软件称为【】。

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

【】的任务是诊断和改正程序中的错误。

要使标签的背景样式为不透明，应将BackStyle属性设置为【】。

在文件对话框中，假定有一个名为"fc．exe"的文件，它位于"d:\pp"目录下，则"FileName"属性的值为【】；FileTifie属性的值为【】。

在窗体上有几个对象，运行程序时，当对象得到焦点时，会触发【】事件，当对象失去焦点时将触发【】事件。

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