打开C:\GATDoc文件夹中的wy2.htm网页文件进行如下编辑修改:
①在网页<HEAD>区插入如下内联样式:
A:link{COLOR:#6666ff;"微软雅黑","sans-serif"'>“宋体”;TEXT-DECORATION:none}
A:visited{ TEXT-DECORATION:none}
A:hover{ COLOR:#cc0033; TEXT-DECORATION:underline}
②加入网页标题“改革开放成果”。
③将页面下方“寻求合作”滚动字幕方向改为自左向右滚动。
④将最终结果以wy2.htm文件名保存在C:\GATDoc中。
① 网络爬虫得到的数据
② 计算机网络运行产生的日志
② 人在微博上发表的记录
④ 传感器设备采集的数据
任务:将“我的团课”文件夹中的“团歌.mp3”、“团课.ppt”、“团课视频.rar” 三个文件复制到D盘“团队活动”文件夹中。
操作步骤:
图1
图2
图3
序号 | 库存编号 | 类别 | 库存数量 | 零售价 | 入库时间 | 盈利情况 |
1 | cWJDO01 | 家电 | 78 | 265元 | 2021年2月10日 | 正利润 |
2 | SHDQ001 | 生活电器 | 121 | 868元 | 2021年3月12日 | 负利润 |
3 | SHDQ002 | 生活电器 | 98 | 322元 | 2021年3月12日 | 零利润 |
… | … | … | … | … | … | … |
下列相关描述,正确的是( )
下列说法正确的是( )
假设共有1000个市民,市民的相关信息都存储在“information.accdb”的data表中,查询程序界面如图所示。工作人员在文本框Text1中输入卡号,单击“开始查询”按钮,如果找到,就在Label1中显示卡内市民姓名和卡内余额;否则显示“查无此人”。请按要求将下列程序补充完整。
Private Sub command1_click()
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim strSQL As String
Dim a,b as string ‘分别定义姓名、余额
Dim n as integer
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\information.accdb" '打开到数据库的链接
conn.Open
strSQL ="select xh,xm from data where '卡号=&(Text1.Text) & '" '设置查询的SQL语句
Set rs.ActiveConnection = conn '设置rs的ActiveConnection属性,指定与其关联的数据库链接
rs.Open strSQL '打开记录集,将从表information中读取的结果保存到记录集rs中
Label1.Caption = ""
n=0
Do while not rs.EOF
①
a=rs.Fields("姓名")
b=rs.Fields("余额")
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing
②
if n=0 then Label1.caption="查无此人"
End Sub
while True:
for event in pygame.event.get(): #
if event.type==pygame.QUIT: #
sys.exit() #退出程序
if event.type==pygame.MOUSEBUTTONDOWN: #
Private Sub Command1_Click()
Dim a(1 To 1000) As Integer '数组a存储文中出现该指定单词的各个位置
Dim s, c, ch As String
Dim n, max, i As Integer
s = Text1.Text
①
n = 0
max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ②
If ch = c Then
n = n + 1
③
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > max Then max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text = Str(n)
Text4.Text = Str(max)
End Sub
① ② ③
下列说法正确的是( )