高中计算机考试表格试题,高中信息技术-试题列表-第页

(2)、实现上述功能的 VB 程序如下，请在划线处填入合适的代码。

Dim stock(1 To 52) As Integer '存储每本书警戒1和警戒2的库存数量

Dim num(1 To 100) As Integer '存储每本书每次的销售数量

Dim bm(1 to 26) As String '存储每本书的书名编码

Dim kc(1 To 26) As Integer '存储每本书的库存数量

Dim sell(1 To 26) As Integer，q(1 To 26) As Integer

Private Sub Form_Load()

'从数据库读取书目销售清单数据，显示在list1中，分别存在数组

'stock(1)，stock(2)存书名编码A的警戒1库存，警戒2库存；stock(3)，stock(4)存书名编码B的警戒1库存，警戒2库存，依次类推，代码略

End sub

Private Sub Command1_Click()

For i = 1 To 100 '处理100条销售清单数据

k = Asc(bm(i)) - 64

Next i

n = 0

For i = 1 To 26 '更新库存数据

If sell(i) > 0 Then

n = n + 1

kc(i) = kc(i) - sell(i)

End If

Next i

head = 0: tail = n + 1: j = 1

Do While j < tail

r = kc(q(j))

If r <= stock(2 * q(j) - 1) Then

head = head + 1

If Then t = q(head): q(head) = q(j): q(j) = t

j = j + 1

ElseIf r > stock(2 * q(j)) Then

tail = tail - 1

t = q(j): q(j) = q(tail): q(tail) = t

Else

j = j + 1

End If

Loop

'分组排序及排序后数据显示在列表框list2中，代码略

End Sub

高中计算机考试表格试题,高中信息技术-试题列表-第页相关推荐

唐山市高中计算机考试,2010唐山中考信息技术科目模拟考试题库（操作题）
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 34.以下文件名及文件夹名均不区分大小写,而且所有字母和数字都是英文半角字符. 1.在user05文件夹下建立一个名为"河北省"的文件 ...
高中计算机试题一,高中计算机考试试题集(一)
高中计算机考试试题集(一) 一.单选题题号题目描述选项A 选项B 选项C 选项D 答案 185 Windows的桌面是指(). 整个屏幕全部窗口某个窗口活动窗口 A 186 在选择好文件夹 ...
高中在线计算机,高中计算机考试试题集-20210414015151.docx-原创力文档
Revised on November 25, 2020 Revised on November 25, 2020 高中计算机考试试题集高中计算机考试试题集(一) 一.单选题题号题目描述选项A选项 ...
计算机考试中有关表格的题类型,2021年职称计算机考试中有关电子表格题型试题集.doc...
TIME \@ "yyyy'年'M'月'd'日'" 2020年5月14日 2021年职称计算机考试中有关电子表格题型试题集职称计算机考试中相关电子表格题型试题一.打开" ...
大学c语言下上机考试题,计算机考试二级C语言上机试题下[5]
第 35套试题说明 *********************************** 第一题(30分) 函数fun的功能是:统计长整数n的各个位上出现数字1.2.3的次数,并通过外部(全局) ...
国家c语言二级机试题,国家二级计算机考试题目C语言机试题库.doc
国家二级计算机考试题目C语言机试题库.doc 国家计算机等级考试二级 c 语言考试机考题目题目有 1.2.3 .4 个数字,能组成多少个互不相同且无重复数字的三位数都是多少1.程序分析可填在百位.十 ...
c语言上机试题8,计算机考试二级C语言上机试题上[8]
第 11套试题说明 *********************************** 第一题(30分) 给定程序的功能是将大写字母转换为对应小写字母之后的第五个字母; 若小写字母为v-z, ...
高中计算机考试编程题,2020年高中信息技术模块测试卷５（算法与程序设计）信息技术试题（PDF版无答案）...
ID:12966002 分类: 单元测试 , 浙江 , 2020 资源大小:22433KB 资料简介: 模块测试卷 5 19 高中信息技术模块测试卷 5(算法与程序设计) 信息技术试题一.选择题(本 ...
高中计算机会考知识点选择题,高中计算机会考的试题及答案.doc
高中计算机会考的试题及答案高中计算机会考试题及答案(2) 2007-11-16 23:20 在默认方式下,Excel 2000工作表的列以(??? C???? )标记. A.数字+字母B.字母+数字 ...

高中计算机考试表格试题,高中信息技术-试题列表-第页

高中计算机考试表格试题,高中信息技术-试题列表-第页相关推荐

最新文章

热门文章