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

[主观题]

阅读以下说明和Visual Basic 码，将应填入（n)处的字名写在对应栏内 [说明] 设计一个计时程序。该程

阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在对应栏内

[说明] 设计一个计时程序。该程序用户界面由一个文本框(text 1)，两个按钮——命令按钮1 (Command 1)按钮、命令按钮(Command 2)组成。程序运行后，用户按开始按钮，则开始计时，文本框中显示秒数，按停止按钮，则计时停止。单击窗口则退出。

Option Explicit

Dim I

Private Sub Command1 _ Click()

i=0

Timer1. Interval = 1000

(1)

End Sub

Private Sub Command2_ Click()

Timer1. Enabled = False

End sub

Private Sub Form. Click(

(2)

End Sub

Private Sub Form. _Load()

Timer1. Enabled = False

(3)

End Sub

Private Sub Timer1 _ Timer()

i=i+1

(4)

End Sub

查看答案

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

您可能会需要：

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

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

更多“阅读以下说明和Visual Basic 码，将应填入（n)处…”相关的问题

第1题

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

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

【说明】

以下程序为求行列式X(5,5)的值S。

【Visual Basic代码】

Private Function col (byval x (5,5 ) as integer ) as long

dim fesult as long

dim temp as long

dim I as integer

dim j as integer

dim k as imeger

result = 0

for I = to 5

(1)

for j = 1 to 5

if I+j＞6 then

k= (1+j ) mod 5

else

k=1

endif

temp=temp*x (k,j )

(2)

result=(3)

(4)

(5)

End function

点击查看答案

第2题

阅读以下说明及Visual Basic 程序代码，将应填入（n)处的字句写在对应栏内。[说明] 本程序求3～100之

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

[说明]

本程序求3～100之间的所有素数(质数)并统计个数；同时将这些素数从小到大依次写入顺序文件E: \dataout.txt；素数的个数显示在窗体Form1上。

[Visual Basic 代码]

Private Sub Command1_ Click ()

Dim count as integer, flag as Boolean

Dim t1 as Integer, t2 as Integer

(1)

Count=0

For t1=3 to 100

Flag=Tree

For t2=2 to Int(Sqr (t1 ) )

If (2) Then flag=False

Next t2

(3)

count=(4)

write 1, t1

End if

Next t1

(5)

Close 1

End Sub

点击查看答案

第3题

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

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

【说明】

在窗体上设计两个文本框和两个标签，标签上显示：“摄氏温度：”和“华氏温度：”，文本框一个用于输入摄氏温度数，一个用于输出对应的华氏温度。摄氏温度与华氏温度的转换公式为：c=(5/9)×(f-32)

要求：对输入的摄氏温度数有检查功能，以拒绝接收非数字字符。运行界面如图所示。

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

【Visual Basic代码】

Private Sub Commandl_Click ()

Text1 = ""

Text2 = ""

Text1.Enabled = True

Text2.Enabled = True

Text1.SetFocus

End Sub

Private Sub Command2 Click ()

End

End Sub

Private Sub Form. Load ()

Text1 = ""

Text2 = ""

Text1.Enabled = False

Text2.Enabled = False

End Sub

Private Sub Textl_Change ()

Text2.Text = (1)

End Sub

Private Sub Textl_KeyPress (KeyAscii As (2) )

If (3) Then

If Chr (KeyAscii ) ＜ "0" Or (4) Then

(5)

End If

End Sub

点击查看答案

第4题

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

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

[程序5.1说明]

下列程序运行时，当单击窗体后，从键盘输入一个字符，判断该字符是字母字符、数字字符还是其他字符，并做相应的显示。窗体上无任何控件，并禁用Ase和Chr函数，Select Case语句中禁用枚举值。

[Visual Basic代码]

Private Sub Form. Load ()

Dim x As String*1

X=(1) (“请输入单个字符”，“字符”)

Select Case UCase ((2) )

Case (3)。

Print X+“是字母字符”

Case (4)

Print X+ “是数字字符”

Case Else

Print X+“是其他字符”

End Select

[程序5.2说明]

在窗体上画一个名称为Timer1的计时器和一个名称为Labe11的标签。当运行程序后，将在标签中显示当前时间的数字时钟(包括时：分：秒)。

[Visual Basic代码]

Private Sub Fom_Load ()

Timer1.Interval=1000

EndSub

Private Sub Timer1_ timer() (5)

EndSub

点击查看答案

第5题

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中（1)～（6)

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Basic程序中(1)～(6)空缺处的语句填写完整。

【说明】

某绘图系统定义了一个抽象类Ishape，现有3个类Cpoint，CLine和Ccircle，它们都具有IShape界面。相应的类图关系如图5-11所示。

阅读以下关于某绘图系统的技术说明、部分UML类图及Visual Basic程序，将Visual Ba

已知某第三方库已经提供了XCircle类，且完全满足CCircle图元显示时所需的功能。【Visual Basic代码6-1】是抽象类IShape类模块内容。【Visual Basic代码6-2】实现了类CCircle的IShape界面，并使用了XCircle提供的显示功能。

XCircle提供的显示功能方法接口为displayIt。

【Visual Basic代码6-1】

Publie Color As Long

Sub draw()

'方法体不包括可执行语句

End Sub

Sub move(stepx As Single, stepy As Single)

'方法体不包括可执行语句

End Sub

【Visual Basic代码6-2】

(1)

Private color As Long

… '其他定义省略

Private ridged As (2)

Private Sub Class_Initialize()

Set bridged=(3)

End Sub

Private Property (4) ()As Long

IShape_Color=color

End Property

Private Property (5) (ByVal newColor As Long)

Color=newColor

End Property

Private Sub IShape_draw() 使用XCircle提供的显示功能

(6)

End Sub

Private Sub IShape_move(stepx As Single, stepy As Single)

… '省略描述

End Sub

点击查看答案

第6题

●试题五阅读以下应用说明、属性设置及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

点击查看答案

第7题

阅读以下说明和Visual Basic代码，将应填入（n)处的字句写在对应栏内。【说明】以下代码实现了当用户

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

【说明】

以下代码实现了当用户退出界面时，判断TextEdit中的文字是否发生改变，弹出对话框判断，让用户选择是否保存文件或取消退出界面操作。阅读下面的代码，将其补充完整。

【代码7-1】

Begin VB.Form. Forml

//...窗体描述(略)

Begin VB.TextBox TextEdit

Height = 1830

Left = 180

Tablndex = 0

Text = "TextEdit"

Top = 360

Width = 3885

End

//...窗体描述(略)

End

【代码7-2】

Dim txtchange As Boolean

Dim myval As String

Private Sub Form. Load ()

TextEdit.Text: "CIU, 中国软考联盟!"

txtchange = False

End Sub

【代码7-3】

Private Sub TextEdit_Change ()

Static notchange As Boolean

(1)

notchange = Tree

End Sub

Private Sub Form_Unload (Cancel As Integer )

Dim myval As String

If (2) Then

myval = MsgBox ("保存文件的更改吗？", vbYesNoCancel, "提示信息" )

If (3) Then

MsgBox "保存成功"

End

End If

If (4) Then End

If (5) Then Cancel = 1

End If

End Sub

点击查看答案

第8题

阅读以下说明和Visual Basic 码，将应填入（n)处的字名写在的对应栏内 [说明] 这是一个用户名校验

阅读以下说明和Visual Basic 码，将应填入(n)处的字名写在的对应栏内

[说明] 这是一个用户名校验程序，如用户名正确，即输出欢迎字样，否则，弹出警告窗并直接退出程序。下面是实现上述功能的程序，请填空。“Option Explicit”此语句的作用：强制显示声明

Dim UserName (2) As String

Dim Flag As Boolean

(1)

Private Sub Form. _ Load()

UserName (0) = "AA": UserName (1) = "BB": UserName(2) = "CC"

Flag = False

inputName = InputBox(“请输入名称：“,”身份确认”“,”)

Dim i As Integer

For i = 0 To False

If inputName = UserName(i) Then

(2)

End If

Next i

If (3) Then

MsgBox “用户身份确失败!退出应用”, vbOKOnly, “警告”

End

End If

End Sub

Private Sub Form_ Paint()

(4)

End Sub

点击查看答案

第9题

阅读以下应用说明及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

End Sub

点击查看答案

第10题

阅读以下应用说明及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

点击查看答案

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

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

微信搜一搜

赏学吧

点击打开微信

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

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

微信搜一搜

赏学吧

点击打开微信