
Private Sub Command1_Click()
Dim s As String,sum As Integer
Dim i As Integer,j as Integer
s= Text1.Text
n=0
For i=1 To Len(s)
For j=i To Len(s)
List1. AddItem
n= 1+1
Next j
Next i
List1. AddItem "总共有" +Str(n)+ "个子串"
End Sub
实现上述功能的VB程序如下,但加框处代码有错,请改正。
Dim a (1 To 10) As Integer
Dim mc (1 To 10) As Integer
Private Sub Form Load( )
‘ 随机产生10个[30, 60]之间的随机数,保存在数组a中,并输出到列表框List1
‘ 代码略
End sub
Private Sub Command1_Click( )
Dim i As Integer, 3 As Integer, k As Integer
For i = 1 To 10
k = 0
For j = 1 To 10
If
Then ‘ ①
k=k+1
‘ ②
End If
Next j
Next i
For i = 1 To 10
List2.AddItem Str(a(i)) + " " + Str(mc(i))
Next i
End Sub
加框①处代码应改为。
加框②处代码应改为。




某市出租车收费标准如下:
⑴3公里内(含3公里),收费8元;
⑵超过3公里但未超过6公里部分,按1.5元/公里收费;
⑶超过6公里部分,按2.25元/公里收费。
根据以上标准,输入出租车行驶的公里数,请计算顾客需付费多少元?
【参考代码】
Dim s As Single
Dim p As Single
s=Val(InputBox(“s=”))
If s<=3 Then
p=8
End If
If Then
p=1.5*(s-3)+8
End If
If s>6 Then
p=2.25*(s-6)+1.5*3+8
End If
Print p
根据上述回答下列问题:


Private Sub Command1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
sec = Val(Text2.Text)
min = Val(Text1.Text)
If sec> 0 Then
sec = sec - 1
Else
sec = 59
If min > 0 Then
min = min - 1
Else
Text1 = 0
Text2 = 0
MsgBox "倒计时时间到"
End If
End If
Text1 = min
Text2 = sec
End Sub
|
图1 |
图2 |
|
图3 | |
import pandas as pd
import matplotlib. pyplot as plt
pd. set_option('display. unicode. ambiguous_as_wide',True) #处理列数据无法对齐的情况pd. set_option('display. unicode. east_asian_width',True)
plt. rcParams['font. sans-serif'] = 'simhei' #图表显示中文字体
df=pd.read_csv("sale. csv",encoding="gbk") #导入待处理CSV文件
#修改第1行显示器的销售人员为“毕春艳
#计算出每一笔业业务利润的情况
df["利润"]=(df["单品售价"]-df["单品进价"])*df["销售数量"]
#按"商品名称"统计本月"销售数量","利润"的总和
df1=
#筛选出本月赚钱较多的前 3 种商品
print()
#同理,统计同种商品的月销量,代码略
#统计本月每一位销售人员的商品销售数量
df2=df. groupby("销售人员",as_index=False)["销售数量"]. sum() #筛选出本月销售数量>25 或销售数量<10 的销售人员
print()
#以垂直柱形图的形式统计显示所有销售员的业绩
x=
y=df2["销售数量"]
plt. figure(figsize=(8,4))
plt. title("商场运营情况分析")
plt. bar(x,y,label="销售人员业绩图",color="r") plt. legend( )
plt. show()