急，VBvb串口通信程序实例高手进

来源：蜘蛛抓取(WebSpider) 时间：2015-12-07 16:27 标签： vb程序设计教程
VB编程,急!!!高手进啊!!!_百度知道
VB编程,急!!!高手进啊!!!
1. 基本操作题（1）建立新工程文件名称Form1窗体画文本框名称Txt1内隶书&&字再画水平滚条名称Fontsize1属性窗口水平滚条设置属性： 编写适事件程程序运行移滚条滚框则扩或缩文本框汉字要求程序任何变量注意：保存必须存放考文件夹窗体文件名sjt1.frm工程文件名sjt1.vbp程序运行窗体界面图65-1所示 图65-1（2）建立新工程文件名Form1窗体画文本框名称Txt1画命令按钮名称Display标题&显示文字&TabIndex属性设0请Display设置适属性使焦点Txt1按B键同点击Display按钮所实现功能文本框显示&北京欢迎&注意：保存必须存放考文件夹窗体文件名sjt2.frm工程文件名sjt2.vbp程序运行窗体界面图65-2所示 图65-22. 简单应用题（1）考文件夹insjt3.txt文件文件几行汉字请建立新工程文件Form1窗体画文本框名称Txt1能显示行；再画命令按钮名称Save标题&保存&并编写适事件程使加载窗体insjt3.txt文件内容显示文本框文本前面手工插入行汉字&寻找属于我童&单击&保存&按钮文本框修改内容存文件outsjt3注意：能前面插入文字能修改原文字文件必须存放考文件夹sjt3.vbp文件名存储工程文件sjt3.frm文件名存储窗体文件程序运行窗体界面图65-3所示 图65-3（2）考文件夹工程文件sjt4.vbp及窗体文件sjt4.frm该程序完整请&&号填入确内容删除&&及所注释符（即'号）能修改其部存盘改变文件名文件夹本题描述： 本窗体Form1已经标签Lab1请画单选按钮数组名称Fruit含3单选按钮Index属性别0、1、2,标题依&苹&、&葡萄&、&橙&再画名称Txt1文本框程序运行单击&苹&或&葡萄&单选按钮Txt1显示&我吃苹&或&我摘葡萄&；单击&橙&单选按钮Txt1显示&我切橙呢&程序运行窗体界面图65-4所示 图65-43.综合应用题考文件夹目录工程文件sjt5.vbp及窗体文件sjt5.frm其窗体名Txt1文本框初始内容0；标签；计器；3元素单选按钮数组名称SetSecond, Index属性别0、1、2标题别&1秒&、&3秒&&5秒&两命令按钮标题别&始计数&、&停止计数&同给两事件程并完整运行要完面功能：单击单选按钮设置计间隔1秒或3秒或5秒；单击&始计数&则Txt1数按设定计间隔每加1；单击&停止计数&则Txt1数再变化请按面要求设置属性编写程序便实现述功能；1．设置计器属性使其初始状态计2．掉程序注释符程序改确内容3．两命令按钮编写适事件程每事件程能条语句能使用变量注意：能修改程序其部控件其属性修改文件按原文件名存盘程序运行窗体界面图65-5所示 图65-5
我有更好的答案
没难度但繁琐的题目
图都在那里呢？ 补充：图65-1、65-2、65-3、65-4、65-5都是这个图？
其他类似问题
为您推荐：
vb编程的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁用VB的穷举法解决四皇后问题，急！高手速进！_百度知道
用VB的穷举法解决四皇后问题，急！高手速进！
用vb穷举解决四皇问题四皇问题与八皇问题类似4*4格需要代码谢谢
我有更好的答案
dim x as integerdim y as integerfor x = 1 to 4
for y=1 to 4
next ynext x
能解释下四皇后问题和八皇后问题是什么吗？
其他类似问题
为您推荐：
穷举法的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁高手进，问个小问题，急_vb吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：84,125贴子：
高手进，问个小问题，急收藏
一个很大的字符串$，比如"7984",我要把他加1,然后记录成字符串"7985",有啥好函数没
= = val+str+trimdim a as stringa="7984"a=trim(str(val(a)+1))
Dim a As Stringa = "7984"a = CStr(CDec(a) + 1)
谁这么NC想出了这样一道无聊的题目，这个绝对不会出错。Private Sub Form_Load()Dim a As StringDim B As VariantDim C As Stringa = "7984"B = Right(a, 1)B = B + 1C = Mid(a, 1, Len(a) - 1)C = C & CStr(B)MsgBox CEnd Sub
吵过多少位，你这字符串转换数值才会出错？
这其实是高精算法
多看思路，少要代码
写的仓促，，，，，，有点乱，，下面是文本版，##############################################################################Option ExplicitDim z()Private Function re(num_str)
Dim i As Integer
For i = 0 To (Len(num_str) - 1)
ReDim Preserve z(i)
z(i) = Mid(num_str, i + 1, 1)
re = zEnd Function Private Sub Form_Click()
Dim a As String: Dim b As String: Dim j As Integer: Dim res As String: Dim js_1(): Dim js_2(): Dim s As Integer: Dim cool As String
加数1 = ""
加数2 = ""
a = "0" & 加数1
b = "0" & 加数2
b = String$(Len(a) - Len(b), "0") & b
js_1 = re(a): js_2 = re(b)
For j = (Len(a) - 1) To 0 Step -1
If s = 1 Then
If Val(js_1(j)) + Val(js_2(j)) & 9 Then
res = Val(js_1(j)) + Val(js_2(j)) + 1: s = 0
res = Val(js_1(j)) + Val(js_2(j)) - 9: s = 1
If Val(js_1(j)) + Val(js_2(j)) & 9 Then
res = Val(js_1(j)) + Val(js_2(j)): s = 0
res = Val(js_1(j)) + Val(js_2(j)) - 10: s = 1
cool = res & cool
Print Val(cool)End Sub #####################################################################想加多少加多少！！！！！！当然，加数1要比加数2大才不会出错哦哦哦有用就粉一个
你要这么大的数干什么？好像日常生活中用处不大啊
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或

我要回帖

更多关于 vb程序设计教程 的文章

 

随机推荐