工资问题：某古老的工作和工资计算方式比较奇特，其工作要求如下：必须从1月1日当天开始工作，且连续工作n（n<=365）天才一次性结算得到工资。某年（假设当_刷题宝

题干

工资问题：某古老的工作和工资计算方式比较奇特，其工作要求如下：必须从1月1日当天开始工作，且连续工作n（n<=365）天才一次性结算得到工资。某年（假设当年为平年）的工资计算细则是：第1天获得1枚金币，接下来的2天（第2天和第3天）每天获得2枚金币，再接下来的3天（第4、5、6天）每天获得3枚金币，……，依次类推，即当连续n天每天获得n枚金币后，会在之后的连续n+1天里，每天获得n+1枚金币。
小王用VB编写了工资计算程序，当输入连续工作的最后一天的日期后，单击“计算”按钮Command1，程序自动计算工资总额，其运行界面如图所示。

实现上述功能的VB程序如下，请回答下列问题：
（1）下列选项中，属于鼠标“单击”事件的是_______。（单选，填字母：

A．DblClick/

B．Load/

C．Click）

（2）请在划线处填入合适的代码。
①__________
②__________
（3）加框处的代码有错误，请改正。
__________
Private Sub Command1_Click()
Dim i As Integer,j As Integer,k As Integer
Dim m As Integer,d As Integer,n As Integer
Dim md As String,sum As Integer
md = "312831303130313130313031"
n = 0
m = Val(Text1.Text)
d = Val(Text2.Text)
For i = 1 To m - 1
n = ①
Next i
n = n + d
i = 0:j = 0
sum = 0:k = 1
Do While i < n
sum =

j = j + 1
If ② Then
j = 0
k = k + 1
End If
i = i + 1
Loop
Text3.Text = Str(sum)
End Sub

上一题下一题 0.99难度 None 更新时间:2020-03-29 09:42:07

答案(点此获取答案解析）

同类题1

VB程序设计。某微群采用问题验证的加入方式，如下图所示：

徐明设计了一个VB程序用于寻找这个以211开头、可被2012整除的6位数。其算法流程图如下图所示，

程序界面和代码编辑窗口如下图所示。

（1）上图所示流程图中采用的算法为____________（填：解析算法 / 枚举算法）。
（2）在上图程序界面所示窗体中，创建label2对象的方法正确的是___________（填字母）。
A．双击工具箱中的“

”控件
B．单击工具箱中的“

”控件，然后在窗体中按住鼠标左键拖曳
（3）在上图程序界面窗体的标题中显示 “寻找验证问题的答案” 字样，是通过修改该窗体对象的 _________（填：Font / Caption / Top）属性的值实现的。
（4）上图代码编辑窗口中的VB程序代码在___________（填：加载窗体 / 单击Label2 / 单击Command1）对象时被驱动执行。
（5）徐明在代码编辑窗口中，输入“Label2.”后出现如下图所示的信息, 其中的“BackColor”是Label2的_________（填：事件名 / 对象名 / 属性名）。

（6）下图中VB程序划线处应填写的代码为_____________。

（7）运行上图中VB程序后，弹出下图所示的出错信息提示，此时程序正执行的语句是 ___________（填字母），改正该错误应修改的语句是____________（填字母）。

A．Dim k As Integer
B．For k = 211000 To 211999
C．Label2.Caption = Str(k)
（8）保存工程后，徐明发现结果文件夹中产生了yzwt.frm、yzwt.vbp、yzwt.vbw三个文件，其中窗体文件是__________。

同类题2

窗体的Backcolor属性用于设计窗体的___ ___。

同类题3

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是，文本框Text2中显示的内容是。
Private Sub Command1_Click()
Const n = 4
Dim a(1 To n) As Integer, s As Integer
Dim i As Integer, t As Integer, k As Integer
a(1) =" 1:" a(2) =" 2:" a(3) =" a(1):" a(4) = 0
s =" 0:" k = 0
For i =" 1" To n
t = a(i)
a(i) =" k" + t
k = t
s =" s" + a(i)
Next i
Text1.Text = Str(a(2))
Text2.Text = Str(s)
End Sub

同类题4

进入2016年7月份以来，浙江省气温连续高企，为了观察气温的变化情况，小明用VB编写了一个连续高温天数的统计软件。小明采集了杭州市7-8月的每日最高气温，并存放在ACCESS数据库中。程序运行时，读取日期和最高气温并显示在列表框List1中，在文本框Text1中输入温度值，单击“统计”按钮Command1，程序自动统计运行在该温度值以上的最长连续天数，并显示在Text3中，同时在Text2中显示日期区间，运行界面如图所示。

Dim rq(1 to 100) as String:Dim qw(1 to 100) as Integer:Dim n as Integer
Private sub Form_Load()
'读取数据库内容，其中日期数据放在数组rq中，最高气温数据存放在qw中，第i个日期保存在rq(i)中，对应的气温保存在qw(i)中，并显示在列表框List1中，代码略
End sub
Private sub Command1_Click()
Dim max as Integer '记录最大连续天数
Dim nend as Integer '记录最大连续天数时的结束日期的下标
Dim ncount as Integer '统计连续天数
Dim tjqw as Integer '存放输入的温度
tjqw = Val(Text1.Text)
ncount = 0
max = 0
For i = 1 To n
If _____________ Then
ncount = ncount + 1
Else
ncount = 0
End If
If max < ncount Then
max = ncount
__________________
End If
Next i
If max <> 0 Then Text2.Text = ____________________& ”-”& rq(nend)
Text3.text = Str(max)
End sub

同类题5

VB中工程文件的扩展名为（）

相关知识点