2. 从业资格
  3. 阅读以下应用说明以及用Visual Basic编写的程序代码，将应填入(n)处的

阅读以下应用说明以及用Visual Basic编写的程序代码，将应填入(n)处的

练习题库2022-08-02  107
问题 阅读以下应用说明以及用Visual Basic编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【应用4.1】    设应用程序的运行窗口内有一个文字标签（Label）以及一个框架，其中有三个复选框(chkl，chk2，chk3 )，各个复选框单击事件过程的程序代码如下：  Private Sub chkl Click（）    Label.fontBold = chkl.Value  End Sub  Private Sub chk2 Click（）    Label.fontItalic = chk2.Value  End Sub  Private Sub chk3 Click（）    Label.fontUnderLine = chk3.Value  End Sub    三个复选框chkl、chk2、chk3的功能分别是：（l ）【应用4.2】    设应用程序的运行窗口内有两个文本框Txt 1和Txt2，其初始内容为空。在Txt 1文本框中输入一个数值，当光标离开此文本框（例如进入文本框Txt2 )时，执行的程序代码如下：  Private Sub Txtl_LostFocus（）  dim x as double  x = Val(Txtl.Text）  If x＜0 Or x＞100 Then    Txtl.Text = “ ”    MsgBox$（“请重新输入!”）    Txtl.SetFocus  Else    Txt2.Text = Txtl.Text  End If    End Sub    该程序代码的功能是：若在文本框Txt1中输入的数值小于0或大于100，当光标离开此文本框时，(2) ；否则，将其值复制到文本框Txt2中。【应用4.3】在下面的应用中，当窗口内发生Click事件时，窗口内将显示如图4-1所示的杨辉三角形（每一行都是三项式展开的系数）。请完善程序代码。Private Sub Form Click（）    Dim i ， j ， c  As Integer ， StrTemp As String    Dim a(9) As Integer    a(0) = 0 : a(1) = 1 : StrTemp = Str(a(1)) ＋ Space(3)    CurrentX = （ScaleWidth一TextWidth(StrTemp)）/2    Print StrTemp    For j = 2 To 9  a（j）= 1  For c =  j-1 To 2 Step - 1   a（c） = （3）  Next    (4)  = “”  For c = 1 To j    StrTemp = StrTemp & Str（(5)）& Space (5 - Len (Str (a (c)）））  Next  CurrentX =（ScaleWidth一TextWidth(StrTemp)）/ 2  Print StrTemp    NextEnd Sub（） 〔共15分）    阅读以下应用说明以及用Visual Basic编写的程序代码，将应填入(n)处的字句写在答题纸的对应栏内。【应用4.1】    设应用程序的运行窗口内有一个文字标签（Label）以及一个框架，其中有三个复选框(chkl，chk2，chk3 )，各个复选框单击事件过程的程序代码如下：  Private Sub chkl Click（）    Label.fontBold = chkl.Value  End Sub  Private Sub chk2 Click（）    Label.fontItalic = chk2.Value  End Sub  Private Sub chk3 Click（）    Label.fontUnderLine = chk3.Value  End Sub    三个复选框chkl、chk2、chk3的功能分别是：（l ）【应用4.2】    设应用程序的运行窗口内有两个文本框Txt 1和Txt2，其初始内容为空。在Txt 1文本框中输入一个数值，当光标离开此文本框（例如进入文本框Txt2 )时，执行的程序代码如下：  Private Sub Txtl_LostFocus（）  dim x as double  x = Val(Txtl.Text）  If x＜0 Or x＞100 Then    Txtl.Text = “ ”    MsgBox$（“请重新输入!”）    Txtl.SetFocus  Else    Txt2.Text = Txtl.Text  End If    End Sub    该程序代码的功能是：若在文本框Txt1中输入的数值小于0或大于100，当光标离开此文本框时，(2) ；否则，将其值复制到文本框Txt2中。【应用4.3】在下面的应用中，当窗口内发生Click事件时，窗口内将显示如图4-1所示的杨辉三角形（每一行都是三项式展开的系数）。请完善程序代码。Private Sub Form Click（）    Dim i ， j ， c  As Integer ， StrTemp As String    Dim a(9) As Integer    a(0) = 0 : a(1) = 1 : StrTemp = Str(a(1)) ＋ Space(3)    CurrentX = （ScaleWidth一TextWidth(StrTemp)）/2    Print StrTemp    For j = 2 To 9  a（j）= 1  For c =  j-1 To 2 Step - 1   a（c） = （3）  Next    (4)  = “”  For c = 1 To j    StrTemp = StrTemp & Str（(5)）& Space (5 - Len (Str (a (c)）））  Next  CurrentX =（ScaleWidth一TextWidth(StrTemp)）/ 2  Print StrTemp    NextEnd Sub
选项
答案
解析
转载请注明原文地址:http://tihaiku.com/congyezige/2428221.html
本试题收录于： 初级程序员题库软件水平考试初中高级分类

初级程序员

软件水平考试初中高级

相关试题推荐
随机试题
最新回复(0)