网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,158贴子：1,165,989
  • 17回复贴，共1页

跪求一VB大神解决几个代码问题

本人毕设需要做几个小的VB程序，遇到一些问题，有VB大神指导一下嘛？十分感谢先！


直接贴问题吧……




路过


题目爆出来啊


Private Sub Text1_Change(Index As Integer)
If CInt(Text1(Index).Text) = 0 Then
Exit Sub
End If
x = Index \ 6
y = Index Mod 6
If y = 0 Then
y = 6
Else
x = x + 1
End If
Text1((y - 1) * 6 + x).Text = CStr(1 / CInt(Text1(Index).Text))
End Sub


嗯


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 17回复贴，共1页
分享到: