网友您好，请在下方输入框内输入要搜索的题目：

搜题

题目内容（请给出正确答案）

提问人：网友yysmsh 发布时间：2022-01-07

[主观题]

工程中有Form1和Form2两个窗体。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半

工程中有Form1和Form2两个窗体。程序运行时，在Form1中名称为Text1的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示”(其名称为Command1)，则显示Form2窗体，且根据输入的圆的半径计算圆的面积，并在Form2的窗体上显示出来。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据！”，请填空。 Private Sub Command1_Click() If Text1.Text = "" Then MsgBox "请输入半径！" ElseIf Not IsNumeric() Then MsgBox "请输入数值数据！" Else r = Val(Text1.Text) Form2.Show __________.Print "圆的面积是" & 3.14 * r * r End If End Sub

简答题官方参考答案（由简答题聘请的专业题库老师提供的解答）

抱歉！暂无答案，正在努力更新中……

更多“工程中有Form1和Form2两个窗体。程序运行时，在Form1中名称为Text1的文本框中输入一个数值（圆的半”相关的问题

第1题

在窗体上画一个列表框、一个命令按钮和一个标签，其名称分别为List1、Command1和Label1，通过属性窗口把列表框中的项目设置为：“第一个项目”、“第二个项目”、“第三个项目”、“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮，即可将所选择的项目删除，并在标签中显示列表框当前的项目数，运行情况如图所示(选择“第二个项目”的情况）。下面是实现上述功能的程序，请填空。 Private Sub Command1_Click() If List1.ListIndex >= 0 Then List1.RemoveItem ________________ Label1.Caption= List1.ListCount Else MsgBox "请选择要删除的项目" End If End Sub

点击查看答案

第2题

1. 如果a=6，则执行语句：x = IIf(a>5,-1,0) 后，x的值为。 A) 5 B) 6 C) 0 D) -1 2. 下列叙述正确的是。 A) Select Case语句中的测试表达式可以是任何形式的表达式 B) Select Case语句中的测试表达式只能是数值表达式或字符串表达式 C) 在执行Select Case语句时，所有的Case子句均按出现的次序被顺序执行 D) 下列Select Case语句中的Case表达式是错误的： Select Case x Case 1 To 10 ...... End Select 3. 下列程序段的执行结果为。 x = 5 y = -20 If Not x > 0 Then x = y - 3 Else y = x + 3 Print x - y; y - x A) -3 3 B) 5 –8 C) 3 –3 D) 25 -25 4. 下列程序段的执行结果为。 x = 2 y = 1 If x * y < 1 Then y = y - 1 Else y = -1 Print y - x > 0 A) True B) False C) –1 D) 1 5. 执行以下语句后显示结果为。 Dim x As Integer If x Then Print x Else Print x - 1 A) 1 B) 0 C) –1 D) 不确定

点击查看答案

第3题

下列程序的执行结果为______。 Private Sub Command1_Click() i = 4 a = 5 Do i = i + 1 a = a + 2 Loop Until i >= 7 Print "I="; i Print "A="; a End Sub

A、I= 4 A= 5

B、I= 7 A= 13

C、I= 8 A= 7

D、I= 7 A= 11

点击查看答案

第4题

下列程序段的执行结果为______。 a = 0: b = 1 Do a = a + b b = b + 1 Loop While a < 10 Print a; b

A、10 5

B、A B

C、0 1

D、10 30

点击查看答案

第5题

以下能够正确计算n!的程序是______。

A、Private Sub Command1＿Click() n = 5 : x = 1 Do x = x * i i = i + 1 Loop While i <n print x end> B、Private Sub Command1＿Click() n = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i <n print x end> C、Private Sub Command1＿Click() n = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i<=n print x end sub> D、Private Sub Command1＿Click() n = 5 : x = 1 : i = 1 Do x = x * i i = i + 1 Loop While i>n Print x End Sub

点击查看答案

第6题

在窗体上画一个命令按钮Cmd1和一个标签Lab1，然后输入如下事件过程： Private Sub Cmd1_Click() k = 0 For i = 1 To 4 For j = 6 To 1 Step -2 k = k + 1 Next j Next i Lab1.Caption = Str(k) End Sub 程序运行后，单击命令按钮，标签中显示的内容是。

A、11

B、12

C、16

D、20

点击查看答案

第7题

下列程序段的执行结果为。 x = 1 y = 1 For i = 1 To 3 f = x + y x = y y = f Print f; Next i

A、2 3 6

B、2 2 2

C、2 3 4

D、2 3 5

点击查看答案

第8题

设有下列事件过程： Private Sub Cmd1_Click() Dim sum As Double, x As Double sum = 0 : n = 0 For i = 1 To 5 x = n / i n = n + 1 sum = sum + x Next i End Sub 该程序通过For-Next循环计算一个表达式的值，这个表达式是。

A、1+1/2+2/3+3/4+4/5

B、1+1/2+2/3+3/4

C、1/2+2/3+3/4+4/5

D、1+1/2+1/3+1/4+1/5

点击查看答案

第9题

执行下列程序段的输出结果是。 i=0 While i<=5 i="i+1" wend print>

点击查看答案

第10题

下列程序的功能是求计算10的阶乘。请完善程序： Private Sub Cmd1_Click() x = 1 r =1 While x <= 1 10 r="x" x + wend print end sub>

点击查看答案

账号：尚未登录

登录没有账号？去注册

购买搜题卡

考试指南全部 >

贵州省成人高考一年考几次青海24年成人高考专升本考几科 24上半年黑龙江自考本科成绩查询系统入口官网详解 2024年成人教育和自考的区别哪个含金量高 2024年成人业余和函授哪个好哪个用处大黑龙江2024年成人高考专升本考试内容 2024年山西省成人高考考试时间是什么时候？甘肃2024年成人高考专升本考试内容 24上半年江苏自考专科成绩查询系统入口详解 2024年广东自考需要准备什么材料报名条件有哪些

购买搜题卡查看答案

购买前请仔细阅读《购买须知》

请选择支付方式

微信支付

支付宝支付

点击支付即表示你同意并接受《服务协议》和《购买须知》

立即支付已付款，但不能查看答案，请点这里登录即可>>

搜题卡使用说明

1. 搜题次数扣减规则：

功能	扣减规则
功能	基础费（查看答案）	加收费（AI功能）
文字搜题、查看答案	1/每题	0/每次
语音搜题、查看答案	1/每题	2/每次
单题拍照识别、查看答案	1/每题	2/每次
整页拍照识别、查看答案	1/每题	5/每次

备注：网站、APP、小程序均支持文字搜题、查看答案；语音搜题、单题拍照识别、整页拍照识别仅APP、小程序支持。

2. 使用语音搜索、拍照搜索等AI功能需安装APP（或打开微信小程序）。

3. 搜题卡过期将作废，不支持退款，请在有效期内使用完毕。

找回账号密码

联系在线客服

警告：系统检测到您的账号存在安全风险

为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！

- 微信扫码关注简答题 -

警告：系统检测到您的账号存在安全风险

抱歉，您的账号因涉嫌违反简答题购买须知被冻结。您可在“简答题”微信公众号中的“官网服务”-“账号解封申请”申请解封，或联系客服。

- 微信扫码关注简答题 -

下载APP

关注公众号

TOP