重要提示：请勿将账号共享给其他人使用，违者账号将被封禁！
查看《购买须知》>>>
首页 > 计算机应用技术> 平面图像软件设计与应用
网友您好，请在下方输入框内输入要搜索的题目：
搜题
拍照、语音搜题，请扫码下载APP
扫一扫 下载APP
题目内容 （请给出正确答案）
[主观题]

在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能

将事先输入到文本框中的内容一个字符一个字符地写入顺序文件test .dat中。请在空格处填上适当的内容，将程序补充完整。 Private Sub Command1_Click() Open "c:\test.dat"For【 】As 1 For i=1 to Len(Text1.text) print1，mid(Text1.Text，i，1) Next Close i End Sub

答案
查看答案
发布时间：2022-12-04
收藏
更多“在窗体上画一个文本框，名称为Text1，画一个命令按钮，名称为Command1。程序运行时，单击命令按钮，能”相关的问题

第1题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Pr
ivate Sub Command1_Click() Dim array1(10，10) As Integer Dim I，j As Integer For I=1 To 3 For j=2 To 4 array(I，J)=I+j Next j Next I Text1，Text=array1(2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第2题

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Pr
ivate Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是()。

A.15

B.14

C.13

D.12

点击查看答案

第3题

设有如下通用过程： Public Sub Fun(a(),ByVal x As Integer) For i = 1 To 5 x = x + a(i) N
ext End Sub 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程 Private Sub Command1_Click() Dim arr(5) As Variant For i = 1 To 5 arr(i) = i Next n = 10 Call Fun(arr(), n) Text1.Text = n End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是()。

A.25

B.24

C.15

D.10

点击查看答案

第4题

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事
件过程： Private Sub Command1_Click() n= Text1.Text Select Case n Case 1 To 20 x=10 Case 2，4，6 x=20 Case Is＜10 x=30 Case 10 x=40 End Select Text2.Text=x End Sub 程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是()。

A.40

B.30

C.20

D.10

点击查看答案

第5题

在窗体上画一个文本框（其Name属性为Text1)，编写如下事件过程，运行结果是______。 Private Sub Fo

在窗体上画一个文本框(其Name属性为Text1)，编写如下事件过程，运行结果是______。 Private Sub Form_Load() Show Text1.Text="你好!" Text1.SetFocus For i=1 To 15 Sum=Sum+i Next i Text1.Text=Sum End Sub

点击查看答案

第6题

已知在窗体上有一个文本框控件，它的名称为Text1，且输入的字符全部为数字，现在要把该字符转换为整
数送给整型变量C，所用到的语句是【 】。

点击查看答案

第7题

设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框只能显示信息，不能接受输入的
信息，以下能实现该操作的语句是（）。

A．Text1.MaxLength=0

B．Text1.Enabled=Flase

C．Text1.Visible=Flase

D．Text1.Width=0

点击查看答案

第8题

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1（设置显示文

在窗体上有5个控件：一个名称为Text1的文本框控件，用来显示文本；两个名称分别为Check1(设置显示文本的下划线)和Check2(设置显示文本的加粗)的复选框；两个名称分别为Option1(设置字的大小为12磅)和Option2(设置字的大小为16磅)的单选按钮。当Check1被选中时，文本框中显示的字体加下划线，当Option2被选中时，文字框中显示的字体大小为16磅，程序运行时的界面如图20-5所示。请填空。

Private Sub Check1_Click() If Check1．Value=【 】Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click() Text1．【 】 End Sub

点击查看答案

第9题

在窗体上创建一个名称为Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.T
ext=“” Text1.SetFocus End Sub Private Sub Form. _MouseUp(Button As Integer,Shift As Integer, X As Single, Y As Single) Print“程序设计”End Sub Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) Print“Visual Basic”; End Sub 程序运行后，如果按A键，然后单击窗体，则在窗体上显示的内容是()。

A.“程序设计”

B.“Visual Basic程序设计”

C.Visual Basic

D.“A程序设计”

点击查看答案

第10题

在窗体上建立—个名称为Text1的文本框，用来接收一个整数。当form1_ Click事件发生时，将在窗体上显
示输入整数的各位数字和。 Private Function fun(m As Integer) As Integer Dim k As Integer, n As Integer do n =【 】 k=k+ n m= m\10 Loop until m = 0 fun = k End Function Private Sub form_ Click() Dim n As Integer n = Val(Text1. Text) Print【 】 End Sub

点击查看答案

第11题

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数（

在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击它将得到数M从右边起的第N位数字，并把该数字显示在Text3文本框中，如图20-15如示。请填空。

Private Function digit(ByVal m As Integer，ByVal n As Integer)As Integer Dim i As Integer For i=1 To n-1 m=m\10 Next i digit=【 】 End Function Private Sub Command1_Click() Dim m As Integer，n As Integer，k As Integer m=Val(Text1.Text) n=Val(TextText) k=【 】 TextText=Str(k) End Sub

点击查看答案
公需课题库 全部 >
福师大2021年8月课程考试《运动生理学》作业考核(期末A卷)四川农业大学20年12月《建筑测量(专科)》作业考核-答案电子科技大学《大学英语2(本科)》20秋在线作业2答卷20秋东北大学《计算机辅助数控编程》在线平时作业2【满分答案】21春北交《列车牵引与制动》在线作业二参考答案20秋学期东北大学《金属学与热处理基础》在线平时作业2【满分答案】北京中医药大学20秋《中医诊断学Z》平时作业6答案北京语言大学《社会保障概论》20秋作业2答案吉大《人体解剖学》21春在线作业二-0004参考答案兰州大学20春《计算机网络》平时作业2答案
考试指南 全部 >
浙江23年安全评价师的报考流程2023导游证成绩查询官网入口辽宁2023年浙江导游证打印准考证时间昆明导游证什么时候报名安全评价师二级考试报考条件辽宁导游证成绩查询时间2023四川省导游证报考条件要求初级导游证报考有什么条件吗2024年资产评估师资格全国统一考试辅导教材：资产评估基础江苏安全评价师报考条件2023年
违法和不良信息举报 在线客服
    搜题
    下载APP
    关注公众号
    TOP
    重置密码
    账号：
    旧密码：
    新密码：
    确认密码：
    确认修改
    购买搜题卡查看答案 购买前请仔细阅读《购买须知》
    请选择支付方式
    • 微信支付
    • 支付宝支付
    点击支付即表示同意并接受了《服务协议》和《购买须知》
    立即支付 系统将自动为您注册账号
    已付款，但不能查看答案，请点这里登录即可>>>
    联系客服
    找回账号密码
    请使用微信扫码支付(元)

    订单号：

    遇到问题请联系在线客服

    请不要关闭本页面，支付完成后请点击【支付完成】按钮
    遇到问题请联系在线客服
    恭喜您，购买搜题卡成功 系统为您生成的账号密码如下：
    重要提示：请勿将账号共享给其他人使用，违者账号将被封禁。
    发送账号到微信 保存账号查看答案
    怕账号密码记不住？建议关注微信公众号绑定微信，开通微信扫码登录功能
    请用微信扫码测试
    尊敬的用户，您尚未绑定微信号
    扫码关注微信公众号，开通微信扫码登录功能
    您可能还需要：
    重置密码 查看订单 联系客服
    优题宝