题目内容（请给出正确答案）

[主观题]

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【应用说明5.1】本应

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【应用说明5.1】

本应用程序的窗体中有一个下拉式列表框(名称为Combo1)和两个文本框(名称分别为 Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容以及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

【程序代码5.1】

Private Sub Combo1_Click()

Txt1.Text = Combo1. (1)

Txt2.Text = Combo1. (2)

End Sub

(注：可供(2)处选择的选项：List, Index, Listlndex, ListCount, Number)

【应用说明5.2】

本应用程序的运行窗口如图2所示。

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【应用说明5

开发该应用的部分程序代码如下：

【程序代码5.2】

Private Sub CmbOp_Click()

Dim Dataln As Double,DataOut as Double

Dataln=(3)

Select Case (4)

Case "取整数部分"

DataOut =Int(Dataln)

Case "求平方根"

If Dataln＜0 Then

MagBox "负数不能开平方!"

Else

DataOut = Sqr(Dataln)

End If

Case "取绝对值"

DataOut = Abs(Dataln)

(5)

TxtOut. Text = str $ (DataOut)

End Sub

如搜索结果不匹配，请联系老师获取答案

您可能会需要：

重置密码查看订单联系客服

安装赏学吧APP，拍照搜题省时又省心！

更多“阅读以下应用说明及Visual Basic程序代码，将应填入…”相关的问题

第1题

●试题六阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题六

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

单击窗体上的"测试"(cmdTest)按钮，出现一个输入框，要求输入一串字符，将该字符串中的非字母字符删除后，显示在窗体中的一个文本框(txtShow)中。

【程序代码】

Private Sub cmdTest_Click()

Dim strT1，strT2 As String

Dim strCh As (1)

Dim intL As Integer

Dim intI As Integer

strT1= (2) ("请输入一串字符"，"字符串输入")

intL= (3)

strT2=″″

For intI=l To intL

strCh=Mid(strT1，intI，1)

If(strCh＞"A"And (4) ) Or (strCh＞"a" And suCh＜"z")Then

strT2=strT2+strCh

End If

Next intI

txtShow．Text= (5)

End sub

点击查看答案

第2题

●试题五阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答题纸的对

●试题五

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入(n)处在字句写在答题纸的对应栏内。

【说明】

本应用程序的运行窗口如图2所示。

●试题五阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答

只要用户单击"闪烁"按钮，文字"欢迎光临"就会以0．3秒消失、0．3秒显示反复进行闪烁；单击"停止"按钮时，闪烁停止，恢复图示的初态。

在开发过程中，需要设置的属性如表1所示。

●试题五阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入（n)处在字句写在答

在开发过程中，需要编写的程序代码如下：

【程序】

Private Sub CmdF_Click()

Timer1． (3) =True

Labe1．Visible=False

End Sub

Private Sub Timer1_Timer()

(4) =not Label.Visible

End Sub

Private Sub CmdT_Click()

Timer1．Enabled= (5)

Labe1．Visible=true

End Sub

点击查看答案

第3题

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【说明】已知窗体上有

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdCene按钮时，随机产生10个[1,100]范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

【程序代码】

Dim intA(1 To 10)As integer

Private Sub cmdGene_Click()

Dim intl As Integer

Randomize

For intl = 1 To 10

intA(intl) =(1)

Next intl

End Sub

Private Sub cmdSort_Click()

Dim intl, intJ,intMin, intTemp As Integer

For intl = 1 To 9

intMin = intA(intl)

For intJ=(2) To 10

If intA(intJ) ＜ intMin Then

Temp = intA(intJ)

intA(intJ)=(3)

intMin = intTemp

End If

Next intJ

(4)

(5)

For intl = 1 To 10

Print Str(intA(intl))+" ";

Next intl

Next lntl

Print

End Sub

点击查看答案

第4题

阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在对应栏内。【说明8.1】以下程序

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【说明8.1】

以下程序的功能是：生成20个200～300之间的随机整数，输出其中能被5整除的数并求出它们的和。

【程序代码8.1】

Private Sub Command1_Click()

For i=1 To 20

x=Int((1)*200+100)

If (2)=0 Then

Print x

S=S+ (3)

End If

Next i

Print"Sum=";S

End Sub

【说明8.2】

程序8.2运行后，单击窗体，则在窗体上显示的内容是：a=(4)和b=(5)。

【程序代码8.2】

Private Sub Form_Click()

Dim a As Integer,b As Integer

a=20:b=50

p1 a,b

p2 a,b

p3 a,b

Print"a=";a,"b=";b

End Sub

Sub p1(x As Integer, ByValy As Integer)

x=x+l0

y=y+20

End Sub

Sub p2(ByVal×As Integer, y As Integer)

x=x+l0

y=y+20

End Sub

Sub p3(ByVal×As Integer, ByVal y As Integer)

x=x+10

y=y+20

End Sub

点击查看答案

第5题

●试题七阅读以下应用说明及Visual Basic程序代码，将应填入（n)处的字句写在答题纸的对应栏内。

●试题七

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

已知窗体上有两个名为cmdGene和cmdSort的命令按钮。单击cmdGene按钮时，随机产生10个［1，100］范围内的整数并将它们放在数组intA中；单击cmdSort按钮时，用选择法排序这10个数并输出。

【程序代码】

Dim intA(1 To 10)As Integer

Private Sub cmdGene_Click()

Dim intI As Integer

Randomize

For intI=1 To 10

intA(intI)= (1)

Next intI

End Sub

Private Sub cmdSort_Click()

Dim intI，intJ，intMin，intTemp As Integer

For intI=1 To 9

intMin=intA(intI)

For intJ= (2) To 10

If intA(intJ)＜intMin Then

Temp=intA(intJ)

intA(intJ)= (3)

intMin=intTemp

End If

Next intJ

(4)

(5)

For intI=1 To 10

Print Str(intA(intI))+" "；

Next intI

Next IntI

Print

End Sub

点击查看答案

第6题

阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在对应栏内。【说明】在窗体

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

在窗体上画一个名称为Combo1的组合框，画两个名称分别Labe11、Labe12及Caption属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键 (ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Labe12中给出提示“已成功添加输入项”；如果存在，则在Labe12中给出提示“输入项已在组合框中”。

【程序】

Private Sub Combo1 (1) (KeyAscii As Integer)

If KeyAscii=(2) Then

For i=0 To (3)

If Combo1. Text=(4) Then

Labe12. Caption ="输入项已在组合框中"

Exit Sub

End If

Next i

Label2. Caption ="已成功添加输入项"

Combo1. (5) Combo1.Text

End If

End Sub

点击查看答案

第7题

●试题五阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在答题纸的对应栏

●试题五

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在答题纸的对应栏内。

【说明】

在窗体上画一个名称为Combo1的组合框，画两个名称分别Label1、Label2及Caption属性分别为"城市名称"和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在Label2中给出提示"已成功添加输入项"；如果存在，则在Label2中给出提示"输入项已在组合框中"。

【程序】

Private Sub Combo1_ (1) (KeyAscii As Integer)

If KeyAscii= (2) Then

For i=0 To (3)

If Combo1．Text= (4) Then

Label2．Caption="输入项已在组合框中"

Exit Sub

End If

Next i

Label2．Caption="已成功添加输入项"

Combo1． (5) Combo1．Text

End If

End Sub

点击查看答案

第8题

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入______处的语句写在答题纸的对应栏内

。

[应用说明7]

本应用程序的运行窗口如图2-5所示。

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入______处的语句写在答题纸

只要用户单击“闪烁”按钮，文字“欢迎光临”就会以0.3s消失、0.3s显示反复进行闪烁；单击“停止”按钮，闪烁停止，恢复图示的初态。

[属性设置7]

阅读以下应用说明、属性设置及Visual Basic程序代码，将应填入______处的语句写在答题纸

[程序代码7]

Private Sub CmdF C1ick()

Timerl. (3)=True

Label.Visible=False

End Sub

Private Sub Timerl_Timer()

(4)=not Label.Visible

End Sub

Private Sub CmdT_Click()

Timerl.Enabled=(5)

Label.Vlsible=true

End Sub

点击查看答案

第9题

阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在对应栏内。【说明】该应用

阅读以下应用说明及Visual Basic部分程序代码，将应填入(n)处的字句写在对应栏内。

【说明】

该应用程序是用来修改文本框中的字体属性，其运行窗口如图4所示。

阅读以下应用说明及Visual Basic部分程序代码，将应填入（n)处的字句写在对应栏内。【说明

窗口由1个标签(Labell)、1个文本框(txtPassage)和4个选择框(chkFont，chkltalic，chkSize，chkColor)组成。程序运行后，用户在文本框内输入一段文字，然后按需要单击各选择框，用以改变文本的字体、字型、颜色及大小。

文本框的Mulitine属性已经设为True。当不选择“黑体”时，文字应是“宋体”。当不选择“大小16”时，字号为9。当不选择“紫色”时，字色为黑色。当不选择“斜体”时，文字采用正常字型。

【程序代码】

Private Sub chkFont Click()

If (1) Then

txtPassage. FontName ="黑体"

Else

txtPassage. FontName ="宋体"

End If

End Sub

Private Sub (2) ()

If chkColor. Value = 1 Then

txtPassage. ForeColor = QBColor(13)

Else

txtPassage. ForeColor = QBColor (0)

End If

End Sub

Private Sub chkltalic_Click()

If chkltalic. Value = 1 Then

txtPassage. Fontl talic =(3)

Else

txtPassage. Fontltalic=(4)

End If

End Sub

Private Sub chkSize Click()

If (5) Then

txtPassage. Font. Size = 16

Else

txtPassage. Font. Size = 9

End If

End Sub

点击查看答案

第10题

阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内。 [应用说

阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内。

[应用说明5.1]

应用程序的窗体中有1个下拉式列表框(名称为Combol)和2个文本框(名称分别为Txt1和Txt2)。运行时，用户从Combo1的列表中进行选择，程序就会将选中条目的内容及编号(从0开始)分别在文本框Txt1和Txt2中显示出来。

[程序代码5.1]

Private Sub Combol_Click()

Txt1，Text=Combol. (1)

Txt2．Text=Combol. (2)

End Sub

(注意：可供(2)处选择的选项有List，Index，ListIndex，LisCount，Number)

[应用说明5.2]

本应用程序的运行窗口如图2-1所示。

阅读以下应用说明及Visual Basic程序代码，将应真入______处的语句写在答题纸的对应栏内

当用户在输入框(名为TxtIn)中输入数值数据，并从下拉式列表框(名称为CmbOp)中选择所需的运算后，输出框(名为TxtOut)中就会显示运算的结果。用户单击“清除”按钮(名为CmdClear)后，输入框和输出框都清空。

[程序代码5.2]

Private Sub CmbOp_Click()

Dim DataIn As Double，DataOut as Double

DataIn＝(3)

Select Case (4)

Case“取整数部分”

DataOut=Int(DataIn)

Case“求平方根”

If DataIn＜0 Then

MsgBox$(“负数不能开平方!”

Else

DataOut=Sqr(DataIn)

End If

Case“取绝对值”

DataOut=Abs(DataIn)

(5)

TxtOut.Text=str$(DataOut)

End Sub

点击查看答案

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“赏学吧”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

微信搜一搜

赏学吧

点击打开微信

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反赏学吧购买须知被冻结。您可在“赏学吧”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

微信搜一搜

赏学吧

点击打开微信