在 vb 中,用六种循环做关于“在1--100之间能够被3整除”的问题 程序_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
评价文档：
99页免费29页免费44页免费37页免费18页免费97页1下载券14页免费1页免费
喜欢此文档的还喜欢8页免费15页1下载券11页免费10页免费8页1下载券
在 vb 中,用六种循环做关于“在1--100之间能够被3整除”的问题 程序|在​ ​v​b​ ​中​,​用​六​种​循​环​做​关​于​“​在-​-0之​间​能​够​被整​除​”​的​问​题​ ​程​序
把文档贴到Blog、BBS或个人站等：
普通尺寸(450*500pix)
较大尺寸(630*500pix)
你可能喜欢急求用vb做打字游戏的代码~好的追加分~~_百度知道
急求用vb做打字游戏的代码~好的追加分~~
一定要符合我的程度的最好能把做的文件发到偶的邮箱里VB是考查课，老师要交期末大作业求VB做的打字游戏，代码，
谢谢啦界面最好好看点，一定要有解释呀
提问者采纳
追加到text1的尾部
if keyascii&lt，在窗体上画两个TextBox.text)+1;字符输入错误;a&你还可以在这个基础上美化界面.mid$(text1.tabindex=0 &#39。
end ifend sub'清空Text2内容
for i=1 to 20 &#39.text=vbnullstring &#39,1)) then keyascii=0;产生一个a~z的字符;随机生成20个字符排列
text1、计时等功能&#39。private sub Form_Load()
randomize timer '清空Text1内容
text2;asc(vba,len(text2;屏蔽当前按键
text1;)) &#39，提示beep声音警报并取消当前键盘操作.text=text1;模拟调用一次text2的键盘操作，使每次运行程序都能获得不同的字符序列
text2;重新设置随机因子，光标定位在text2
Text2_KeyPress 0 &#39.text=vbnullstring '窗体显示后;text2已完成输入（或首次使用刷新）
keyascii=0 &#39，分别是Text1和Text2:beep '&text2键盘操作产生的事件
dim i as long
if len(text1，其内部程序会使text1刷新end subprivate sub Text2_KeyPress(KeyAscii as integer) '给你写个容易理解的吧.text & chr$(int(rnd()*26)+asc(&quot、增加判分.text)=len(text2.text.text) then &#39
其他类似问题
打字游戏的相关知识
按默认排序
其他1条回答
已发送，应该是很好了、背景音乐，有背景图片，可以加速减速，控制游戏时间、会自动算分并算出玩家的最高分等等我给你我的课程设计吧！老师给我打了90多分，请注意查收，保证你会喜欢
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁简单益智游戏的VB源代码及图解，急求！！！！_百度知道
简单益智游戏的VB源代码及图解，急求！！！！
一定要有图，谢谢！！
将区域分为9块，当鼠标在picturebox上按下的时候保存picturebox当前的坐标值，鼠标移动到新位置并弹起时再次保存当前的鼠标值、如果用picturebox作为图片的容器、定义区域；2；3VB九宫数字拼图游戏只提供思路1，步骤一中的坐标值在9个区域之一时，要定义picturebox鼠标事件、用随机函数生成9个数字分别保存在数组变量中，编写函数判断原坐标值在区域与新坐标值所在区域是否可以移动到
其他类似问题
益智游戏的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VBGood网站全文搜索
搜索VBGood全站网页(全文搜索)
论坛最新话题
作者：, 回复：10, 阅读：129, 日期： 作者：, 回复：4, 阅读：44, 日期： 作者：, 回复：5, 阅读：79, 日期： 作者：, 回复：4, 阅读：91, 日期： 作者：, 回复：7, 阅读：127, 日期： 作者：, 回复：5, 阅读：107, 日期： 作者：, 回复：4, 阅读：84, 日期： 作者：, 回复：5, 阅读：147, 日期： 作者：, 回复：5, 阅读：169, 日期： 作者：, 回复：6, 阅读：155, 日期： 作者：, 回复：4, 阅读：178, 日期： 作者：, 回复：10, 阅读：191, 日期： 作者：, 回复：17, 阅读：223, 日期： 作者：, 回复：6, 阅读：65, 日期： 作者：, 回复：8, 阅读：179, 日期： 作者：, 回复：1, 阅读：57, 日期： 作者：, 回复：3, 阅读：142, 日期： 作者：, 回复：14, 阅读：314, 日期： 作者：, 回复：4, 阅读：98, 日期： 作者：, 回复：2, 阅读：78, 日期：
论坛最新精华
作者：, 回复：55, 阅读：781, 日期：
翻译的C++代码
例子调用zlib.dll
compress
uncompress
实现数据的 压缩 与 解压缩
可以 实现Dll的 加载 与 卸载
卸载时没Free加载的Dll模块
没做load检测
可以对同一个模块 加载N次 - -！
测试环境 WIN7X64 ,Server2003
Xp,别的没测试
别的 自己看代
作者：, 回复：11, 阅读：1063, 日期：
激光折射(meon)是Android上面一个游戏，据我研究是抄袭10多年前的一个古老游戏Aargon Deluxe Gold(驴子上有)，现在我把这两个游戏都抄袭一下:smill附带地图编辑器功能，下一个目标是求解器和随机地图发生器:giggle:
[attach]50160[/attach]
[attach]50161[/attach]
VBGood RSS 订阅
每周超过200个关于VB编程的精彩新话题，现在就订阅吧！
论坛历史精华
为VBGood提供空间急求用VB做的一个简单画图软件代码。_百度知道
急求用VB做的一个简单画图软件代码。
选择画圆的画在图上先选一点为圆心，第二点是终点、正方形。要求是在软件界面上有圆，第一点为起点，线也是一样，线等简单的图形，第二点为边点急求用VB做的一个简单画图软件代码
提问者采纳
TextEnd SubPrivate Sub Text5_GotFocus()
Text5.&quot.Text = &quot, response%'&+&quot.Text = &quot.Text) & CStr(index)
If Text4; 1 And Val(Text3.Text) &#47.Text) & CStr(index)
myjudge = 2
ElseIf myflag &lt.5 &&quot.Text = CStr(Text3;禁止改变窗体大小代码开始Dim oldw&.Text = CStr(Val(Text3.Width = oldw！&quot.Text) /√&quot.Text) &
Text3, oldh&Private Sub Form_Load()
oldw = Me.Text = &quot.Text = CStr(Val(Text3！&quot.Text)))
ElseIf Text4;注意.Text) &lt.Text = &×&quot.Text = &quot.Text = CStr(Val(Text3;运算符设置Private Sub Command0_Click(index As Integer)
If index = 0 Then
Text4.Text = &quot.Width.Text) &gt.Text) &#47: oldh = Me.Text)))
ElseIf Text4.Height
Timer1.Text = CStr(Val(Text3;
End IfEnd SubPrivate Sub Command3_Click()
If myflag &gt.Text))
Text1.Text) ^ 0;
Text1;Mod&Mod&quot.&quot.Text) + Val(Text5.Interval = 200
ElseIf index = 5 Then
Text4.5 & Then
If Val(Text3;
Text5; Then
If Val(Text3.Text) & &quot.Text) + Val(Text5.TextEnd SubPrivate Sub Text1_GotFocus()
Text1;数据初始化
myflag = 1
myjudge = 0End SubPrivate Sub Form_Resize()
Me.Text) /
Text5; 0 Then
Text1;;Mod&quot！&quot.Text = &quot.Text) * Val(Text5: Me; 0 Then
Text3.Height = oldhEnd Sub&#39.ToolTipText = Text1.Text = &quot.Text) Mod Val(Text5;禁止改变窗体大小代码结束'&quot.5
End IfEnd Sub&#39.Text = &quot.Text = &quot.Text) ^ Val(Text5.Text = Val(CStr(Val(Text3.Text = &&quot.Text) ^ 0.Text = Val(CStr(Val(Text3;
Text4;+& Val(Text5.Text = &quot.Text))
Text1.Text) &gt.Text) &&×&quot.Text)))
ElseIf Text4;
ElseIf index = 1 Then
Text4; Val(Text5.Text = CStr(Text5; Then
If Val(Text3;&quot.Text = &
ElseIf Text4.Text) + Val(Text5.Text = &)
Text5.Text) Mod Val(Text5.Text) ^ 0; 0 Then
If myflag & And Val(Text5;-&
ElseIf index = 3 Then
Text4.Text)))
ElseIf Text4;
ElseIf index = 2 Then
Text4.Text = CStr(Text5;求值Private Sub Label3_Click()Call myjsmyflag = 1myjudge = 1End SubPrivate Sub Text3_GotFocus()
Text3;&#47.ToolTipText = Text5.Text) - Val(Text5.Text) &lt.Text) - Val(Text5; 1 And Val(Text3;
ElseIf index = 4 Then
ElseIf index = 6 Then
Text4.Text = Val(CStr(Val(Text3.Text = &quot.Text = &&分母不能为零.Text) * Val(Text5, &quot, vbOKOnly + vbExclamation + vbDefaultButton1.Text = CStr(Val(Text3.Text) &gt.Text = &&^&quot.Text) ^ Val(Text5; 1 And Val(Text3; 0 Then
Text1.Text = & 1 And Val(Text3, vbOKOnly + vbExclamation + vbDefaultButton1; Then
If Val(Text3.Text = Val(Text3.Text) & 0 Then
Text1;.Text = &^&
myflag = -1End Sub' 0 Then
Text3;数值键命令Private Sub Command1_Click(index As Integer)
If myjudge = 1 Then
Text1.Text) ^ 0;&quot.Text = Val(CStr(Val(Text3.Text = CStr(Text3; Then
If Val(Text3;
Text5; And Val(Text5.Text = Val(CStr(Val(Text3.Text) & &quot.Text) & 0 Then
Text1; 1 And Val(Text3.Text = && 0 Then
Text1.Text) Mod Val(Text5;;
Text4.Text = &quot.Text) + Val(Text5.Text = &quot.Text = &quot！&&quot.ToolTipText = Text3.Text = &quot.Text) - Val(Text5.Text))
Text1.Text = &/&quot.Text) - Val(Text5;& 1 And Val(Text3; 0 Then
Text1.Text) ^ Val(Text5.Text)))
ElseIf Text4.Text) = 0 Then
response = MsgBox(&注意.Text = &quot.Text) * Val(Text5.Text) = 0 Then
response = MsgBox(& 1 And Val(Text3;/ Then
If Val(Text3;分母不能为零.Text = CStr(Val(Text3, &quot.Text) Mod Val(Text5.Text)))
ElseIf Text4;)
Text5;&quot.Text) ^ Val(Text5;
If myflag &lt.Text))
Text1; 0 Then
Text1.Text = & 0 Then
End IfEnd Sub&#39.Text))
Text1;计算代码Private Sub myjs()
If Text4;-& Val(Text5.Text = Val(CStr(Val(Text3; Then
If Val(Text3.Text) &lt.Text) &lt.Text) * Val(Text5.Text) & Val(Text5.Text))
Text1.Text = CStr(Val(Text3;√&quot.5)
Text1Dim myflag%, myjudge%
提问者评价
其他类似问题
X2 As Long.ScaleHeight - 144
&#39, j)) &#47, Y2 As LongPrivate Sub Form_Load()
For i = 0 To UBound(s).Move 8; & List: Pic.BackColor = vbWhite
.ListIndex, Me.ScaleMode = vbPixels
'设置窗体坐标单位
App, 12000;VB.Line (X1.Icon = Nothing
&#39.Line (X1, Me;)
List.Title = &quot.Circle (X1 + i &#47, X As S简易画图&quot: X2 = X;
&#39, j As Long.Visible = True
End WithEnd SubPrivate Sub List_Click()
Mode = List: X2 = X;VB; Abs(i)
Pic, Shift As Integer, Y As Single)
If Button = 1 Then Draw.MousePointer = vbCrosshair
.AutoRedraw = True设置工程名
Me, Abs(IIf(Abs(i) &gt: List.BorderStyle = 3
&#39: j = Y2 - Y1
If i * j &lt.ListBox&设置窗体边框样式
Me.TabStop = False
Case 矩形, 100.Caption = App: Next
List.Title
Pic, k As Long
Select Case Mode
Case 直线, 8;设置窗体标题
Set Me, .PictureBox&quot, &quot, Abs(j) /清除窗体图标
&#39.Controls: Y2 = Y: P移动窗体
Me, Y1 + j &#47.Line (X1.Circle (X1, i.Move (Screen.Add(&quot.Width - 12000) &#47, 不需添加任何控件~Option ExplicitPrivate Enum ListConstants
外接式椭圆
外接式正圆
半径式正圆End EnumPrivate WithEvents List As ListBoxPrivate WithEvents Pic
As PictureBoxPrivate Mode As ListConstants: X1 = X.Circle (X1 + k * Sgn(i), Y As Single)
If Button = 1 Then D)
, Y1)-(X2, (Screen.Height - 8100) &#47.DrawMode = vbNotXorP 2.Title & &初始化ListBox
Set List = Me: DrawEnd SubPrivate Sub Pic_MouseUp(Button As Integer.ScaleMode = vbPixels
: k = Abs(IIf(Abs(i) &.Caption = A 2), 120, X As Single, , &List&quot, ; Abs(j), Y1 As Long, i.Visible = True
&#39.Line (X1, Y1)-(X2;加载Item
Dim s() As SPic&quot, i As Long
s = Split(&直线 矩形 正方形 外接式椭圆 外接式正圆 半径式正圆&.AddItem s(i): j = Y2 - Y1;&gt.List(Mode)End SubPrivate Sub Pic_MouseDown(Button As Integer.ListIndex = 0
Case 正方形
i = X2 - X1, k
Case 半径式正圆
P初始化PictureBox
Set Pic = Me.C Abs(j)&#39, 120
List, X1 As L 2.Add(&quot: DrawEnd SubPrivate Sub Pic_MouseMove(Button As Integer.Move 8; 2
Pic.ScaleWidth - 24: Me, Shift As I - & 2, , Shift As Integer, Y As Single)
If Button = 1 Then Pic.DrawMode = vbCopyPen: Y1 = Y. 请粘贴到新工程代码窗口后直接运行: Y2 = Y, k * Sgn(j)), X As Single: Y2 = Y: DrawEnd SubPrivate Sub Draw()
Dim i As Long, Y1)-Step(k * Sgn(i): Pic, Y1)-(X2, i, Y2): k = Abs(IIf(Abs(i) &lt, B
Case 外接式椭圆
i = X2 - X1; Abs(j); 2, , j)) &#47, Y2)
Case 外接式正圆
i = X2 - X1: j = Y2 - Y1, Y1 + k * Sgn(j)), Y1);以下代码为纯原创: X2 = X
画图软件的相关知识
您可能关注的推广回答者：
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁