网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索

 
 
 
日一二三四五六
       
       
       
       
       
       

签到排名:今日本吧第个签到,

本吧因你更精彩,明天继续来努力!

本吧签到人数:0

一键签到
成为超级会员,使用一键签到
一键签到
本月漏签0次!
0
成为超级会员,赠送8张补签卡
如何使用?
点击日历上漏签日期,即可进行补签。
连续签到:天  累计签到:天
0
超级会员单次开通12个月以上,赠送连续签到卡3张
使用连续签到卡
08月29日漏签0天
vb吧 关注:156,085贴子:1,166,238
  • 看贴

  • 图片

  • 吧主推荐

  • 游戏

  • 15回复贴,共1页
<<返回vb吧
>0< 加载中...

在标准模块定义自定义类型,这样哪里不对???

  • 只看楼主
  • 收藏

  • 回复
  • 得闲挖坟
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
要求:
(1)在标准模块定义自定义类型
type studtype
name as string * 5
sex as string * 1
telephone as long
school as string * 10
end type
(2)在窗体模块的声明的该类型的数组和变量名n:
dim stud(99) as studtype
dim n%


  • 得闲挖坟
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
我的代码如下
Dim stud(99) As studtype
Dim n%
Public Sub myprogram()
Type studtypename As String * 5
sex As String * 1
telephotone As Long
school As String * 10
End Type
End Sub


2025-08-29 19:46:55
广告
不感兴趣
开通SVIP免广告
  • 得闲挖坟
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
附上截图


  • 得闲挖坟
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
然后就是错误提示


  • 得闲挖坟
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
请问我哪里错了,求指导


  • 得闲挖坟
  • 暴力枚举
    8
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
没人?,再顶顶


  • 隨風缒夢
  • 子类化
    13
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Private Type studtype
name As String * 5
sex As String * 1
telephotone As Long
school As String * 10
End Type
Public Sub myprogram()
Dim stud(99) As studtype
Dim n%
End Sub


  • huy653
  • 啥也不懂
    1
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
哥们做出来没,我也遇到这题目,出不来,给个代码呗


登录百度账号

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频!
  • 贴吧页面意见反馈
  • 违规贴吧举报反馈通道
  • 贴吧违规信息处理公示
  • 15回复贴,共1页
<<返回vb吧
分享到:
©2025 Baidu贴吧协议|隐私政策|吧主制度|意见反馈|网络谣言警示