vb课程设计帮我做个vb课程设计(算法演示器),好几天都没弄出来包括二维数组的各种数车方式,二维数组中最大元素及

vb课程设计  时间:2021-08-30  阅读:()

求帮做VB课程设计(打字游戏)

Dim h As Integer Dim n As Integer Private Function zi() Randomize If Form1.Option1.Value Then a = Int((122 - 97 + 1) * Rnd + 97) ElseIf Form1.Option2.Value Then a = Int((90 - 65 + 1) * Rnd + 65) ElseIf Form1.Option3.Value Then a = Int((126 - 48 + 1) * Rnd + 48) End If zi = Chr(a) End Function Private Sub Form_KeyPress(KeyAscii As Integer) Dim b As Integer Dim c As Integer b = -1 c = -1 For i = 0 To Label1.Count - 1 If Label1(i).Caption = Chr(KeyAscii) Then If Label1(i).Top > b Then c = i End If End If Next If c > -1 Then Image1.Top = Label1(c).Top Image1.Left = Label1(c).Left Image1.Visible = True Label1(c).Top = -10 Label1(c).Caption = zi h = h + 1 Label2.Caption = "当前得分:" & h If Form1.Option4.Value Then h = h + 1 ElseIf Form1.Option5.Value Then h = h + 2 ElseIf Form1.Option6.Value Then h = h + 3 End If End if If KeyAscii = 27 Then If MsgBox("真的要退出吗", vbYesNo) = vbYes Then MsgBox "您的得分" & h & "分", , "成绩" Unload Form2 Form1.Show End If End If End Sub Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer) Image1.Visible = False End Sub Private Sub Form_Load() Dim lu As String lu = App.Path If Right(lu, 1) <> "/" Then lu = lu & "/" End If lu = lu & "3.jpg" Image1.Picture = LoadPicture(lu) h = 0 n = 0 For i = 0 To Label1.Count - 1 Label1(i).Top = 0 - 380 * (i + 1) Label1(i).Caption = zi Next End Sub Private Sub Timer1_Timer() For i = 0 To Label1.Count - 1 If Form1.Option4.Value Then If h > 100 Then Label1(i).Top = Label1(i).Top + 80 Else Label1(i).Top = Label1(i).Top + 40 End If ElseIf Form1.Option5.Value Then If h > 200 Then Label1(i).Top = Label1(i).Top + 120 Else Label1(i).Top = Label1(i).Top + 60 End If ElseIf Form1.Option6.Value Then If h > 300 Then Label1(i).Top = Label1(i).Top + 160 Else Label1(i).Top = Label1(i).Top + 80 End If End If If Label1(i).Top > 6525 Then n = n + 1 Label3.Caption = "掉落个数:" & n Label1(i).Top = -10 Label1(i).Caption = zi End If If n = 27 Then If MsgBox("掉落的个数已经超过" & n & "个,是否重新开始", vbYesNo) = vbYes Then MsgBox "您的得分:" & h & "分", , "成绩" Unload Form2 Form1.Visible = True Exit Sub Else MsgBox "您的得分" & h & "分", , "成绩" End End If End If Next End Sub

VB课程设计!!要求能够随机生成20道数学计算题并对用户结果进行判断!

我以前也做过类似的程序,部分代码给你参考下. Private Sub Form_Load() Timer1.Enabled = True Randomize (Timer) Chufa(0) = 2: Chufa(1) = 4: Chufa(2) = 5: Chufa(3) = 8: Chufa(4) = 10: Chufa(5) = 16 Chufa(6) = 20: Chufa(7) = 32: Chufa(8) = 40 tm$ = "": Ckda$ = "": js = cssj * 60: jsj = js If = 1 Then For i = 1 To csts js = Int(Rnd * 4) If js = 0 Then fh = "+" If js = 1 Then fh = "-" If js = 2 Then fh = "×" If js = 3 Then fh = "÷" If fh = "+" Then A = Int(Rnd * csnd * 10) + csnd * 10 B = Int(Rnd * csnd * 10) + csnd * 10 Ans(i) = A + B End If If fh = "-" Then A = Int(Rnd * csnd * 10) + csnd * 10 B = Int(Rnd * csnd * 10) + csnd * 10 Ans(i) = A - B End If If fh = "×" Then A = Int(Rnd * csnd * 3 + 2 * csnd) B = Int(Rnd * csnd * 3) + 2 * csnd Ans(i) = A * B End If If fh = "÷" Then = Int(Rnd * 3 + 1) B = + csnd - 1) A = Int(Rnd * csnd * 10) + csnd * 10 Ans(i) = A / B End If tm$ = tm$ + "(" + Str(i) + ") " + Str(A) + fh + Str(B) + "=" + Chr(13) + Chr(10) Ckda$ = Ckda$ + "(" + Str(i) + ") " + Str(A) + fh + Str(B) + "=" + Str(Ans(i)) + Chr(13) + Chr(10) Next i Text1 = tm$ End If ll = Label1(0).Left: lw = Label1(0).Width: lh = Label1(0).Height: lt = Label1(0).Top tw = Text3(0).Width For i = 0 To 5 For j = 0 To 4 Label1(i * 5 + j).Top = lt + i * lh + 400: Label1(i * 5 + j).Left = ll + j * (lw + tw) + 300 Label1(i * 5 + j).Width = lw Text3(i * 5 + j).Top = Label1(i * 5 + j).Top: Text3(i * 5 + j).Left = Label1(i * 5 + j).Left + lw Label1(i * 5 + j).Caption = Str(i * 5 + j + 1) + ")" Next j Next i If csts <> 30 Then For i = csts To 29 Label1(i).Visible = False Text3(i).Visible = False Next i End If End Sub

VB 课程设计图像浏览器 怎么做的啊 谢谢

窗体上放dirvelistbox控件dirlistbox控件filelistbox控件image控件 label控件各一个 然后在窗体下写如下代码 程序运行后选择图片所在路径就可以在image内显示 Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click() mpath = File1.Path If Right(mpath, 1) <> "" Then mpath = mpath + "" mpath = mpath + File1.FileName Form1.Image1.Picture = LoadPicture(mpath) Label1 = mpath End Sub

求VB课程设计代码文件,最好有报告及模板!VB初级者急用!谢谢!

ef x As Integer, ByRef y As Integer) As Integer ADD = x + y End Function Private Function Multi(x As Integer, y As Integer) As Integer Multi = x * y End Function Private Sub Command1_Click() x = CInt(InputBox("请输入x的值:", "赋值")) y = CInt(InputBox("请输入y的值:", "赋值")) Sum = ADD(Int(x), Int(y)) Text1.Text = CStr(x) + "+" + CStr(y) + "=" + CStr(Sum) End Sub Private Sub Command2_Click() x = CInt(InputBox("请输入x的值:", "赋值")) y = CInt(InputBox("请输入y的值:", "赋值")) cheng = Multi(Int(x), Int(y)) Text1.Text = CStr(x) + "*" + CStr(y) + "=" + CStr(cheng) End Sub 另外,虚机团上产品团购,超级便宜

求一个VB课程设计,具体要求看说明.

简单的加法程序:

Private Sub Command1_Click() Text3 = Val(Text1) + Val(Text2) End Sub

Private Sub Command2_Click() Text3 = Val(Text1) - Val(Text2) End Sub

Private Sub Command3_Click() If Text2 <> 0 Then Text3 = Text1 / Text2 Else MsgBox "除数不能为0", okonly, "提示" End If End Sub

Private Sub Command4_Click() Text3 = Text1 * Text2 End Sub

帮我做个vb课程设计(算法演示器),好几天都没弄出来包括二维数组的各种数车方式,二维数组中最大元素及

动画演示 本系统由三部分组成:算法介绍、算法的动画演示、算法计算。

1. 算法介绍:实现二维数组的各种输出方式、二维数组中最大元素及所在下标的查找、二维数组的转置、插入排序法、冒泡法排序、选择排序法、归并排序法、快速排序法、shell排序法、折半查找、一元高次方程求解、数制转换等算法的介绍。

2. 算法的动画演示:用动画的方式介绍以上算法的执行步骤0。

3. 算法的计算:可对随机生成的数据进行算法的验证。

要求: 2.算法介绍:算法按类别归类,算法介绍采用图文并茂。

3. 算法的动画演示:要求动画制作直观形象,步骤中可以进行暂停操作。

4. 算法计算:要求对随机生成的数组使用过程完成上述算法程序设计。

杭州王小玉网-美国CERA 2核8G内存19.9元/月,香港,日本E3/16G/20M CN2带宽150元/月,美国宿主机1500元,国内宿主机1200元

官方网站:点击访问王小玉网络官网活动方案:买美国云服务器就选MF.0220.CN 实力 强 强 强!!!杭州王小玉网络 旗下 魔方资源池 “我亏本你引流活动 ” mf.0220.CNCPU型号内存硬盘美国CERA机房 E5 2696v2 2核心8G30G总硬盘1个独立IP19.9元/月 续费同价mf.0220.CN 购买湖北100G防御 E5 2690v2 4核心4G...

iON Cloud:新加坡cn2 gia vps/1核/2G内存/25G SSD/250G流量/10M带宽,$35/月

iON Cloud怎么样?iON Cloud升级了新加坡CN2 VPS的带宽和流量最低配的原先带宽5M现在升级为10M,流量也从原先的150G升级为250G。注意,流量也仅计算出站方向。iON Cloud是Krypt旗下的云服务器品牌,成立于2019年,是美国老牌机房(1998~)krypt旗下的VPS云服务器品牌,主打国外VPS云服务器业务,均采用KVM架构,整体性能配置较高,云服务器产品质量靠...

火数云-618限时活动,国内云服务器大连3折,限量50台,九江7折 限量30台!

官方网站:点击访问火数云活动官网活动方案:CPU内存硬盘带宽流量架构IP机房价格购买地址4核4G50G 高效云盘20Mbps独享不限openstack1个九江287元/月立即抢购4核8G50G 高效云盘20Mbps独享不限openstack1个九江329元/月立即抢购2核2G50G 高效云盘5Mbps独享不限openstack1个大连15.9元/月立即抢购2核4G50G 高效云盘5Mbps独享不限...

vb课程设计为你推荐
轻应用360轻应用,UC轻应用,QQ轻应用,百度轻应用有什么区别?第三方接口我要开通第三方支付接口,接口金额有多大程序设计模式什么是Android程序框架设计模式?提升网站排名如何提高门户网站排名u盾证书转款叫我下载U盾证书,是什么意思混乱模式拳皇2002李梅的混乱模式出招支付宝安全证书下载在网吧可以下载支付宝安全证书?查看加密空间如何才能查看加密码的qq空间反恐精英维护到几点今天反恐精英几点维护完?ldap统一用户认证介绍NIPS是什么认证?
手机网站空间 域名论坛 谷歌域名邮箱 企业主机 高防dns 圣诞节促销 dd444 cpanel空间 合租空间 网站cdn加速 腾讯实名认证中心 阿里校园 1g内存 drupal安装 ebay注册 国内域名 服务器防火墙 lamp怎么读 网页加速 徐州电信 更多