楼主: 打了个飞的
202 0

[学习资料] 2023年计算机二级VB数组和自定义类型练习题及答案 [推广有奖]

  • 0关注
  • 25粉丝

已卖:7660份资源
好评率:99%
商家信誉:一般

院士

94%

还不是VIP/贵宾

-

威望
0
论坛币
3465 个
通用积分
4944.3487
学术水平
8 点
热心指数
9 点
信用等级
8 点
经验
18409 点
帖子
2133
精华
0
在线时间
1415 小时
注册时间
2024-5-25
最后登录
2026-2-13

楼主
打了个飞的 在职认证  发表于 2024-10-19 22:02:25 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
计算机二级
VB数组和自定义类型练习题及答案
  6.如下程序代码将任意一组数存入数组,从键盘接受一数据,将其插入数组中,插入位置也从键盘接受。
  Dim A( )
  Private Sub Form_Click( )
  N=InputBox("
数据个数
:")  N=N+1
  &,nbsp;__
【11】__  For I=1To N-1
  A(I)=Val(InputBox("
原数据:"))
  Next I
  D=Val(InputBox("
插入数据
:"))
  P=Val(InputBox("
插入位置
:"))
  Do While P>N Or P<1
  MsgBox"
位置越界
!"  P=Val(InputBox("
插入位置
:"))
  Loop
  For I=N To P+1 Step -1
  A(I)=A(I-1)
  Next I
  A(P)=D
  For I=1 To N
  Text1.Text=Text1.Text & Str(A(I))&""
  Next I
  End Sub
  7.设在窗体上有一种文本框
Text1 ...
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:练习题及答案 习题及答案 计算机二级 自定义 计算机

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
扫码
拉您进交流群
GMT+8, 2026-2-15 08:41