vb程序设计题
58页1、五、设计题 (请按照题目要求进行答题 )1:编程,输入 x,求下列分段函数的值,计算结果输出到 Text 控件中。Private Sub Command1_Click()Dim x As Singlex = InputBox(输入 x, 计算分段函数)If x Then List1.AddItem Text1.TextText1.Text = End SubPrivate Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command3_Click() Dim I As IntegerOpen d:student.dat For Output As #1For I = 0 To List1.ListCount - 1: Print #1, List1.List(I): Next IClose #1End SubPrivate Sub Command4_Click() EndEnd Sub4:设计一个简单的画板程序,可以根据选择的颜色,用鼠标的左键模拟画笔,在绘图区画线或画矩形;单击“清除”按
2、钮后清除图片框的内容。 (提示:每次画矩形时可先清除其它图案)参考答案:Dim x1 As Single, y1 As SinglePrivate Sub Command1_Click()CommonDialog1.ShowColorPicture1.ForeColor = CommonDialog1.ColorEnd SubPrivate Sub Command2_Click()Picture1.ClsEnd SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Picture1.CurrentX = XPicture1.CurrentY = Yx1 = Xy1 = YEnd SubPrivate Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 ThenIf Option1.Value ThenPic
3、ture1.Line -(X, Y)ElsePicture1.ClsPicture1.Line (x1, y1)-(X, Y), , BEnd IfEnd IfEnd Sub五、设计题 (请按照题目要求进行答题 )第 1 题:编程,用随机函数产生 2 个 10100 的整数,输出最大值。参考答案:Private Sub Command1_Click()Dim x as integer,y as integer,max as integerRandomizex = Int(Rnd * 91 + 10)y = Int(Rnd * 91 + 10)Max = xIf y Max Then y = MaxPrint MaxEnd Sub第 2 题:如下图,编写事件过程 Command1_Click 和 Text3_Keypress(Keyascii As Integer)事件,运行时单击“出题”按钮,自动在 Text1 和 Text2 中显示两个 2 位随机正整数;用户在 Text3 中输入运算结果,按回车后计算机对运算结果进行评判,并将评判结果在 Label2中显示(对了或错了) 。要求文本
4、框 Text3 只接受数字和回车键。(回车键的 Ascii 码为 13,数字键的 Ascii 码为 48 到 57) 参考答案:Dim x As Integer, y As IntegerPrivate Sub Command1_Click()x = Int(Rnd * 90) + 10: y = Int(Rnd * 90) + 10Text1.Text = CStr(x): Text2.Text = CStr(y)Text3.Text = Text3.SetFocusLabel2.Visible = False: Command1.Enabled = FalseEnd SubPrivate Sub Form_Load()Text1.Text = : Text2.Text = : Text3.Text = Label2.Visible = FalseRandomizeEnd SubPrivate Sub Text3_KeyPress(KeyAscii As Integer)If (KeyAscii 57) And KeyAscii = y Then r = x Else r = yPi
《vb程序设计题》由会员飞***分享,可在线阅读,更多相关《vb程序设计题》请在金锄头文库上搜索。
人教版一年级下册数学第二单元20以内的退位减法测试卷精品【考试直接用】
人教版一年级下册数学第二单元20以内的退位减法测试卷(实用)word版
人教版一年级下册数学第二单元20以内的退位减法测试卷及答案(夺冠)
人教版一年级下册数学第二单元20以内的退位减法测试卷(典型题)
人教版一年级下册数学第二单元20以内的退位减法测试卷精品(a卷)
人教版一年级下册数学第二单元20以内的退位减法测试卷及答案【精品】
部编版二年级上册道德与法治期中测试卷 (考试直接用)
部编版二年级上册道德与法治期中测试卷 带答案(培优)
部编版二年级上册道德与法治期中测试卷 含答案(精练)
部编版二年级上册道德与法治期中测试卷 及答案【各地真题】
部编版二年级上册道德与法治期中测试卷 及完整答案【名校卷 】
部编版二年级上册道德与法治期中测试卷 【考点精练】
部编版三年级上册道德与法治期末测试卷 (重点)
部编版三年级上册道德与法治期末测试卷 (模拟题)word版
部编版三年级上册道德与法治期末测试卷 附答案(预热题)
部编版三年级上册道德与法治期末测试卷 附参考答案(b卷 )
部编版三年级上册道德与法治期末测试卷 答案下载
部编版三年级上册道德与法治期末测试卷 含答案【夺分金卷 】
部编版三年级上册道德与法治期末测试卷 含完整答案【网校专用】
部编版三年级上册道德与法治期末测试卷 及答案(最新)
2024-04-25 9页
2024-04-25 13页
2024-04-25 19页
2024-04-25 23页
2024-04-25 11页
2024-04-25 3页
2024-04-25 7页
2024-04-25 8页
2024-04-25 4页
2024-04-25 8页