有一个程序在属性窗口中设置了它的窗体字体大小为10号，而程序代码若设置了它的窗体字体大小为20号，那么当程序运行后实际的窗体字体大小为20号。
下列程序段运行后输出的结果是（）。 Private Sub Form_Click Dim X#, Y# X = 5: Y = 6 Print X + Y = 11 End Sub
对窗体编写如下代码： Option Base1 Private Sub Form_Key Press（Key Ascii AsInteger） a=Array（237，126，87，48，498） m1=a（1） m2=1 IfKey Ascii=13Then ForI=2To5 Ifa（I）>mlThen m1=a（j） m2=I EndIf NextI EndIf Printm1 Printm2 EndSub 程序运行后，按回车键，输出结果为（）
下面程序： Private Sub Command1_Click（） m$="ABC" n$="abc" k$=Lcase$（m$） j$=Ucase$（n$） Print Asc（k$） End Sub 运行后输出结果为（）
下列程序的运行结果为（ ）。Private Sub Command1_Click()Score = Int(Rnd * 10) + 80Select Case ScoreCase ls < 60a$ = ECase 60 To 69a$ = DCase 70 To 79a$ = CCase 80 To 89a$ = BCase Elsea$ = AEnd SelectPrint a$End Sub
设有如下程序代码 ： Dim a% Public b%, c% Private Sub Form_Click() Dim b% Print a; b; c End Sub Private Sub Form_Load() Dim a% a = 5 b = 8 c = 10 End Sub 运行程序时单击窗体 ， 则在窗体上显示的是 ________ 。
以下程序的运行结果是( )。Private Sub Command1_Click()a = 1: b = 2Print \A=
下列程序运行后输出结果是_______. Private Sub Form_Click() K=1 For I=5 to 1 step -1 T=T*10 + K S=S+T Next I Print S End sub
下列程序代码的运行结果为（ ）。 Private Sub Command1_Click() For m = 1 To 10 Step 2 a = 10 For n = 1 To 20 Step 2 a = a + 2 Next n Next m Print a End Sub
假设程序只有下面一行代码，则程序的运行结果是：print(title)
有如下程序代码：Private Sub Form_Click()X = 8If X > 8 ThenPrint \X > 8\ElseIf X < 10 ThenPrint \X < 10\ElseIf X = 8 ThenPrint \X = 8\End IfEnd Sub运行程序，单击窗体，输出结果是________。
编写如下程序：Private Sub Command1_Click()Dim score As Integerscore = 90If score > 80 Thenr = 5ElseIf score > 60 Thenr = 3Elser = 1End IfPrint rEnd Sub程序运行后，单击命令按钮Command1，输出结果为（______）。
单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test （x As Integer) x=x*2+1 If x ＜
7、运行下列程序代码，运行结果可以画一个半圆的是（）。
以下程序代码能否通过编译,如果通过编译,运行“ java Sample ”时会出现什么情况 public class Sample{ private static final int var; Sample（）; }}
单击窗体时，下列程序段的执行结果为（)。Private Sub Form_Crick（)Line（200,200)-（400,400)Print"+
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下事件代码。 Private Sub Commandl_Click（） Dim a（1 0，10）Form=2 to4Forn=4to5a（m，n=m*nNextnNextmMsgBox a（2，5）+a（3，4）+a（4，5）EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。
下列程序的执行结果为Private Sub Command1_Click（) Dim p As Integer, q As Integer p=12: q=20 Call Value（p, q) Print p; qEnd SubPrivate Sub Value（ByVal m As Integer, ByVal n As Integer) m=m * 2: n=n -
◑设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，'000，000.00') End Sub 程序运行后，单击窗体，输出结果为【 】。
4、代码的先后顺序不会影响程序的运行结果。
1、请大家读懂附件中的K均值聚类算法程序，将程序运行结果贴出来； 2、适当修改上面提供的程序代码，将附件中名为“788_points.txt”文件中788个点数据进行聚类，已给出聚类结果。
下列程序段的执行结果为Private Sub Command1_Click（） Text1.Text=c End Sub程序运行后，如果从键盘上输入’16’，则在文本框显示的内容是______
下列程序运行后，输出结果为______。 Sub abcd（ByVal n As Integer) n=n+5 End Sub Private Sub Form_Click（) n%=3 Call abcd（n%) Print n% End Sub
下列程序的执行结果为（）。 Private Sub Commandl_Click（) Dim X As Integer，y As Integer x=12：y=20 Call Value（x，y) Print X；y End Sub Private Sub Value（ByVal m As Integer，ByVal n As Integer) m=m * 2：n=n-5 Print m；n
