77问答网
所有问题
当前搜索:
vb程序设计课程设计报告
VB
简易日历
课程设计
(任务书如下)
答:
Option Explicit Dim xuanzedate Private Sub Form_Load()xuanzedate% = CInt(Format$(Now, "dd"))Call tianchongbn01 Call tianchongbn02 Call setdate Dim r%, week r% = Weekday(Format$(Now, "general date"))If r% = 1 Then week$ = "星期日"ElseIf r% = 2 Then week = "...
用
VB
做的俄罗斯方块的论文怎么写
答:
2.2 设计平台
VB
全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化
编程
工具。
Vb
是microsoft公司于1991年退出的windows应用
程序
开发工具visual意思是...4.1游戏设计中的不足之处但是由于
课程设计
时间较短,所以该游戏还有许多不尽如人意的地方,比如方块类型太少,退出游戏不能存储进度等多方面问题。这些都有待...
数据库
课程设计
心得3篇
答:
数据库
课程设计
心得 范文 1: 在我看来,数据库课程设计主要的目标是利用课程中学到的数据库知识和技术较好的开发设计出数据库应用系统,去解决各行各业信息化处理的要求。通过这次的课程设计,可以巩固我们对数据库基本原理和基础理论的理解,掌握数据库应用系统设计开发的基本 方法 ,进一步提高我们综合运用所学知识的能力...
求 机械原理
课程设计
凸轮
设计vb程序
答:
Private Sub Command1_Click()'参数初始化 Dim r0%, r1%, h%, e Dim a1%, a01%, a2%, a02 r0 = Val(InputBox("请输入基圆半径"))r1 = Val(InputBox("请输入滚子半径"))h = Val(InputBox("请输入升程"))e = Val(InputBox("请输入偏距"))a1 = Val(InputBox("请输入推程运动...
VB
代码解释每句代码的意思
答:
这段代码我们班的
课程设计
他们用了N次了,全天下的老师对这段代码都已经有条件反射了。。。(下面的单引号之后的就是每句的意思)通过一个名为daxie的FUNCTION(函数过程)处理输入的数字,并将其转化为中文的大写数字。你代码里面有些块的结尾还没写。反正把我的话给老师说的话应该能应付过去 Private...
求VB高手帮忙编个
程序
快 速配对游戏:是
VB课程设计
书里的题目
答:
窗口有16张图片,共8中种图案,一种图案有两张。游戏开始时
程序
向用户展示所有图片,片刻后图片翻过去。用户凭记忆连续单击两张自己认为图案相同的图片将其翻起,如果被单击的图片不相同,则会自动翻回去。这样不断单击,知道所有图片均被翻过来,使用时间越少越好。知识点:1.图像控件2.定时器空间3....
求
VB课程设计
列车时刻表查询源代码
答:
'
程序
启动后列表框显示所有车次,sub form_load()dim tempStr as str open "content.txt" for Input as #1 do while not eof(1)line input #1,tempStr list1.additem tempstr loop close #1 end sub '单击其中一项,文本框中显示此车中途停靠所有车站,到站时间和发车时间,并纵向对齐;Content....
vb课程设计
,怎么做一个小球沿着正弦曲线运动的
程序
?大神来~
答:
改个txt复制后改名为Form1.frm VERSION 5.00 Begin
VB
.Form Form1 AutoRedraw = -1 'True Caption = "Form1"ClientHeight = 4545 ClientLeft = 120 ClientTop = 450 ClientWidth = 6465 LinkTopic = "Form1"ScaleHeight = 303 ScaleMode ...
vb课程设计
题目——数据的查找删除和插入 急求答案啊,考试用,谢谢了...
答:
定义type private type MyType exist as boolean data as ...end type dim Datas(0 to ...) as MyType 数据的加入:Datas(i).exist=true 删除:exist=false 修改:if .exist then .data=...
VB
课程设计
图像浏览器 怎么做的啊 谢谢
答:
Private Sub Combo1_Click()File1.Pattern = Combo1.Text End Sub Private Sub Dir1_Change()File1.Path = Dir1.Path End Sub Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub Private Sub File1_Click()Dim fpath As String If Right(File1.Path, 1) <> "\" Then f...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜