这题这么做，VB的

来源：蜘蛛抓取(WebSpider) 时间：2018-06-22 16:31 标签： VB代码题
职友集：一家做公司点评的网站来源：网络收集 & 发布时间： &
本文地址：https://www.chinawjzx.com/6900.html
所有问题分类VB的题目怎么做？
数据类型Boolean型的值分别为____和____. 在VB6.0中,有两个过程,其中声明子过程的关键字为____,声明函数的关键字为____. 在VB6.0中,函数Sqrt(x)表示返回参数X的____,函数Right(字符串,个数)表 示取出字符串______,函数Mid(字符串,起始位置,个数)表示取出字符串_______. 数组a(1 to 10)包含______个数组元素,数组b(1 to 10,1 to 4)包含____个数组元素. &hello world&+&888&的值为____,(4&&3)and(2&4)的值为____,Not(100&3)or(200&100)的值为____,Cint(18.4)的值为. 定时器空间的Interval属性是返回或设置____________________. VB6.0的输入框函数为____,消息框函数为____. 常量vbCrLf是____,Chr(13)是____,Chr(10)是____. SetFocus方法用于将_____移动到空间上. Enabeled属性决定对象在运行时___________. 简述敞亮和变量的命名规则有哪些?
09-01-02 &
Dim a, b, c As Integer a = Val(Text1.Text) b = Val(Text1.Text) c = Val(Text1.Text) if a&70 and b&70 and c&70 then lbl.Caption = &恭喜你中了三等奖& End If if (a+b+c)/3&90 and ((a=100 and b&=75 and c&=75) or (a&=75 and b=100 and c&=75) or (a&=75 and b&=75 and c=100)) then lbl.Caption = &恭喜你中了二等奖& End If if (a+b+c)/3&95 and ((a=100 and b=100 and c&=80) or (a=100 and b&=80 and c=100) or (a&80 and b=100 and c=100)) then lbl.Caption = &恭喜你中了一等奖& End If
请登录后再发表评论!这道VB题怎么做，学号33_百度知道
这道VB题怎么做，学号33
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
Private Sub Command1_Click()If Option1.Value ThenText1.Font = &宋体&ElseIf Option2.Value ThenText1.Font = &黑体&ElseIf Option3.Value ThenText1.Font = &楷体&End IfIf Option4.Value ThenText1.FontSize = 16ElseIf Option5.Value ThenText1.FontSize = 24End IfIf Check1.Value = 1 ThenText1.FontItalic = TrueElseText1.FontItalic = FalseEnd IfIf Check2.Value = 1 ThenText1.FontBold = TrueElseText1.FontBold = FalseEnd IfEnd SubPrivate Sub Form_Load()' & &Text1.MultiLine = True' & &Text1.ScrollBars = 3Text1 = &六（2）班 33号 王晓君&Frame1.Caption = &字体&Frame2.Caption = &字形&Frame3.Caption = &字号&Option1.Caption = &宋体&Option2.Caption = &黑体&Option3.Caption = &楷体&Option4.Caption = &16&Option5.Caption = &24&Check1.Caption = &斜体&Check2.Caption = &粗体&Command1.Caption = &缺点&End Sub
采纳率：66%
来自团队：
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
VB6.0遇到不一样位数加减后,遇到的正负相反的问题如何解决这个问题出现在我做的计算器里：当位数不一样的两个数字相加减后 ,其结果和后续计算都是正负颠倒的.例如随便举例：1000 - 999 、12345 - 99或 478-1000 、75-123456 （每个算式的每个数字都是随机的）,结果都是正负相反,比如.而且,以这些数字为基础的后续计算也会出现正负颠倒的问题比如：在12345-99中,后续计算要用12345直接减去2,得出的结果却是加2.求救!本人太穷了!求高手免费教教我!
作业帮用户
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
你试试这一段代码,这里Sub Jian(ByVal a As Long,ByVal b As Long)'a,b为你输入的数字Dim c As Longc=a-bMsgbox a & "-" & b & "=" & cEnd Sub我运行没有出现你所说的问题,如果问题还存在,那么建议你重新安装VB6.0中文企业版,谢谢!
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 VB代码题 的文章

 

随机推荐