完成下面的程序，使显示结果如下图所示。Private Sub Form_Click（）FontSize=18Sample＄=" 【8】 "x=（ScaleWidth-TextWidth（Sample＄） ） /2y=（ScaleHeight-TextHeight（Sample＄） ） /2CurrentX=xCurrentY=y【9】 Sample＄End Sub
完成下面的程序，使显示结果如下图所示。
Private Sub Form_Click（）
FontSize=18
Sample＄=" 【8】 "
x=（ScaleWidth-TextWidth（Sample＄） ） /2
y=（ScaleHeight-TextHeight（Sample＄） ） /2
CurrentX=x
CurrentY=y
【9】 Sample＄
End Sub
相关考题：
执行下面的程序，消息框里显示的结果是_______。Private Sub Form_Click()Dim Str As StringStr=""S="Access"Fori=Len(S)To 1 Step-lStr=StrMid(S，i，1)Next iMsgBox StrEnd Sub
执行下面的程序，消息框里显示的结果是 【 】 。Private Sub Form_Click()Dim Str As String， K As IntegerStr="ab"For k=Len(Str) TO 1 Step-1Str=Str Chr(Asc(Mid(Str，k，1))+k)Next kMsgBox StrEnd Sub
执行下面的程序，消息框里显示的结果是( )。Private Sub Form_Click()Dim Str As String,S As String,k As IntegerS=StrFor k=Len(Str) To 1 Step -1S=S (Mid(Str,k,1)Next kEnd Sub
完成下面的程序，使显示结果如下图所示。Private Sub Form_Click()FontSize=18Sample$s="【 】"x=(ScaleWidth-TextWidth(Sample$))／2y=(ScaleHeight-TextHeight(Sample$))／2CurrentX=xCurrentY=y【 】Sample$End Sub
执行下面的程序，单击窗体后窗体消息框内显示结果是( )。 PRIVATE SUB FORM_CLICK() DIM STR AS STRING, K AS INTEGER STR="AB" FOR K = LEN(STR) TO 1 STEP -1 STR=STRCHR(ASC(MID(STR, K, 1)) +K) NEXT K MSGBOX STR END SUBA．ABCEB．ABCDC．ABDBD．ABFB
9）设有如下程序：Private Sub Form_Click( )Clsa$="ABCDFG"For i=1 To 6Print Tab(12-i); 【9】Next iEnd Sub程序运行后，单击窗体，结果如图所示，请填空。
编写一个程序。程序初始界面如下图左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim、cmdWay和cmdExit，标签控件的名称定义为lblContent。单击“学习目的”按钮，显示如下图的中图所示；单击“学习方法”命令按钮，显示如下图的右图所示；单击“退出”按钮时，退出程序。
完成按附件图中所示界面的学生管理程序。按下“保存”按钮时，首先判断所有的必要信息是不是都已经填写好，如发现有缺项则提示用户不能保存数据；如果数据完整则将该学生的信息，存入student数据库的basedata表中。保存三个以上软件工程专业的学生，和三个以上其它专业的学生。然后依据选择的专业，按下按钮进行查询并将查询结果按图中所示的“查询结果”下方的TextView全部显示。（可用n进行换行回车）。 提交程序运行视频和App文件夹到SPOC