自动辨别约束

2004-07-14 12:40:00 235 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

操作指南：辨别不同USB接口有几种 USB接口有几种？从USB-A、USB-B到USB-C，再到Micro-USB和Mini-USB，不同形态对应不同设备与传输能力。USB接口有几种？关键要看物理结构、协议版本（如USB 2.0/3.2/4）和供电性能。日常使用中，识别接口类型能避免插错、提升兼容性与传输效率。阅读详情

有一个文本框txt1.text,它只能接受0--9的数字和小数点,其它的字符都不接受.请问代码要怎样写.在线等待.

...全文

基于多智能体与特征约束的阅读理解题目生成框架设计与实践在自然语言处理与教育技术领域，自动生成高质量的阅读理解题目是一个核心挑战，其关键在于实现精准的难度控制。传统单一模型方法往往难以兼顾内容理解与难度适配，导致生成题目质量不稳定。本文介绍一种创新的多智能体协同框架，通过将题目生成任务分解为文本理解、答案选择、问题生成、干扰项生成与题目组装等多个子任务，并由专门的智能体负责，实现了任务解耦与精细化控制。框架的核心在于一套数据驱动的“特征约束”系统，它将抽象的难度概念转化为可量化的文本特征规则（如答案推理步数、问题句法复杂度、干扰项语义相似度），并指导各智能体协同阅读详情

jumay

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

BlueBeer 2004-07-14

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
Const xStr As String = "0123456789"
KeyAscii = IIf(InStr(xStr, Chr(KeyAscii)), KeyAscii, 0)
End Sub

Andy__Huang 2004-07-14

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If

End Sub

TechnoFantasy 2004-07-14

打赏
举报

在change事件中用IsNumeric判断输入的是不是数字。

Andy__Huang 2004-07-14

打赏
举报

再加一句:
If KeyAscii = 46 And InStr(Text1.Text, ".") > 0 Then
KeyAscii = 0
End If

因為只能接受小數點一次。

BlueBeer 2004-07-14

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim xStr As String
xStr = "0123456789." & Chr(8) & Chr(13)
KeyAscii = IIf(InStr(xStr, Chr(KeyAscii)), KeyAscii, 0)
End Sub

Andy__Huang 2004-07-14

打赏
举报

再次修改：

If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 46 And KeyAscii <> 8 Then
KeyAscii = 0
End If

呵呵，這樣沒問題了吧？

liuxiaowang 2004-07-14

打赏
举报

private sub text1_change()
dim LastChar as string
LastChar=right(text1.text,1)
if isnumeric(LastChar)=false then
Text1.text=left(text1.text,len(text1.text)-1)
end if
end sub

yanli 2004-07-14

打赏
举报

Public Function In_single(KeyAscii As Integer) As Boolean
Dim ch_accept_single(20) As String
ch_accept_single(0) = "0"
ch_accept_single(1) = "1"
ch_accept_single(2) = "2"
ch_accept_single(3) = "3"
ch_accept_single(4) = "4"
ch_accept_single(5) = "5"
ch_accept_single(6) = "6"
ch_accept_single(7) = "7"
ch_accept_single(8) = "8"
ch_accept_single(9) = "9"
ch_accept_single(10) = "."
ch_accept_single(11) = "-"
ch_accept_single(12) = Chr(8)
In_single = False
For i = 0 To 12
If Chr(KeyAscii) = ch_accept_single(i) Then
In_single = True
End If
Next
End Function

Private Sub Text1_KeyPress(KeyAscii As Integer)
If In_single(KeyAscii) = False Then
KeyAscii = 0
End If
End Sub

jumay 2004-07-14

打赏
举报

删除键和Del键还是不能用,请你再写一点好吗?

Andy__Huang 2004-07-14

打赏
举报

補充：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
If KeyAscii <> 46 Then
KeyAscii = 0
End If
End If
End Sub
這樣不是OK了麼？

jumay 2004-07-14

打赏
举报

大家都忽略一个问题:小数点,Enter键,删除键,Tab键都不能使用,请大家继续完成我的问题

自动辨别约束

相关推荐